program; var i:byte; str:string; begin For i:=60 to 70 do begin Str:=str+Chr(i) ; end; writeln(str); end.
program;
var
i:byte;
str:string;
begin
For i:=60 to 70 do
begin
Str:=str+Chr(i) ;
end;
writeln(str);
end.