Ответ:

program qq;

begin

Writeln ('ИмяФамилия');

Writeln ('ИмяФамилия');

Writeln ('ИмяФамилия');

Writeln ('ИмяФамилия');

Writeln ('ИмяФамилия');

Writeln ('ИмяФамилия');

Writeln ('ИмяФамилия');

Writeln ('ИмяФамилия');

Writeln ('ИмяФамилия');

Writeln ('ИмяФамилия');

end.

Объяснение:

Ну или (если с циклом)

program qq;

begin

for i:=1 to 10 do

Writeln ('ИмяФамилия');

end.