Напишите программу на Паскале, которая получает с клавиатуры количество повторений и выводит столько же раз какое-нибудь сообщение. Пример: Сколько раз повторить? 3 Привет! Привет! Привет!

pascal
program RepeatMessage;

var
  n, i: integer;

begin
  write('Сколько раз повторить? ');
  readln(n);

  for i := 1 to n do
    writeln('Привет!');
end.

Программа считывает число n, затем с помощью цикла for выводит сообщение Привет! ровно n раз.

Пример работы:

Сколько раз повторить? 3
Привет!
Привет!
Привет!