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.
