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

var i:integer;procedure print;begin  writeln('Турбо Паскаль');end;beginfor i:=1 to 5 do  print;end.