program raf105;
var a,i: integer;
begin
write('Введите количество повторений: ');
readln(a);
for i:=1 to a do
writeln('Привет!');
end.
program raf105;
var a,i: integer;
begin
write('Введите количество повторений: ');
readln(a);
for i:=1 to a do
writeln('Привет!');
end.
PascalABC 3.4.2