---

program RepeatHello;
uses crt;
var
  n, i: integer;
begin
  clrscr;
  write('Сколько раз вывести сообщение: ');
  readln(n);

  if n < 1 then
    writeln('Количество повторений должно быть положительным')
  else
    for i := 1 to n do
      writeln('Привет');

  readln;
end.