12 lines
228 B
ObjectPascal
12 lines
228 B
ObjectPascal
// Ñòðîêè. Îïåðàöèÿ + è îïåðàòîð +=. Äîñòóï ïî èíäåêñó
|
|
|
|
var s: string := 'Pascal';
|
|
|
|
begin
|
|
writeln(s);
|
|
s := s + '.';
|
|
writeln(s);
|
|
s += 'NET';
|
|
writeln(s);
|
|
writeln(s[1],' ',s[2],' ',s[3],' ',s[4],' ',s[5],' ',s[6]);
|
|
end. |