напишите программу которая 15 раз выводит на экран ваше имя и фамилию

Если без циклов тоprogram fifteen;beginwriteln('Имя и фамилия');writeln('Имя и фамилия');writeln('Имя и фамилия');writeln('Имя и фамилия');writeln('Имя и фамилия');writeln('Имя и фамилия');writeln('Имя и фамилия');writeln('Имя и фамилия');writeln('Имя и фамилия');writeln('Имя и фамилия');writeln('Имя и фамилия');writeln('Имя и фамилия');writeln('Имя и фамилия');writeln('Имя и фамилия');writeln('Имя и фамилия');end.Если циклы уже прошлиprogram fifteen;vari:integer;beginfor i:=1 to 15 dowriteln('Имя и фамилия');end.