Question

Создать процедуру, которая выводит на экран текстовую строку «Турбо Паскаль». Используя созданную процедуру, вывести на экран данную строку 5 раз. Желательно всей программой.

Answer 1

Var i:integer;

procedure print;
begin
  writeln('Турбо Паскаль');
end;

begin
for i:=1 to 5 do
  print;
end.