Program Program1;vari:integer;beginfor i:=1 to 10 dowriteln('ПРИВЕТ');readln;end.
vari:integer;
a:string;begin
a='PRIVET'for i:=1 to 10 dowrite(a, ' ');end.
Program Program1;
var
i:integer;
begin
for i:=1 to 10 do
writeln('ПРИВЕТ');
readln;
end.
var
i:integer;
a:string;
begin
a='PRIVET'
for i:=1 to 10 do
write(a, ' ');
end.