11 lines
115 B
ObjectPascal
11 lines
115 B
ObjectPascal
//#NullBasedStrings true
|
|
|
|
var s:='abc';
|
|
i:=1;
|
|
|
|
begin
|
|
writeln(s[i]);
|
|
s[i]:='1';
|
|
writeln(s);
|
|
readln;
|
|
end. |