12 lines
228 B
ObjectPascal
12 lines
228 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> + <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> +=. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
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.
|