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

Var i:integer;

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

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