Question

Напишите процедуру, которая выводит на экран фразу " я люблю паскаль " заданное в ее параметре количество раз

Answer 1

procedure (var n: integer);
   var i: integer;
begin
   for i := 1 to n do
        WriteLn (' Я люблю Паскаль!!!');
end;