Если без циклов то program fifteen; begin writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); end.
Если циклы уже program fifteen; var i:integer; begin for i:=1 to 15 do writeln('Имя и фамилия'); end.
enter
Объяснение: