Ответ:

program a;

var q,w:integer;

begin

write(' Cколько раз повторить?');

readln(q);

for w:=1 to q do

 writeln('Привет!');

end.

Объяснение: