Напишите программу, которая выводит любую фразу n раз с помощью оператора While (n ввести с клавиатуры).

Ответ:

program Hello;

var n : Integer;

   str : String;

begin

str := 'Hello';

write('n = '); readln(n);

while n > 0 do

begin

writeln(str);

n := n - 1;

end;

end.