```pascal
program PrintName;
var
i: integer;
begin
for i := 1 to 10 do
begin
writeln('Ваше Имя Ваша Фамилия'); // Замените на свои имя и фамилию
end;
end.
```
Объяснение:
* `program PrintName;` объявляет имя программы.
* `var i: integer;` объявляет переменную `i` целого типа для использования в цикле.
* `for i := 1 to 10 do` запускает цикл, который повторится 10 раз.
* `writeln('Ваше Имя Ваша Фамилия');` выводит на экран строку с вашими именем и фамилией. Замените 'Ваше Имя Ваша Фамилия' на свои реальные данные.
* `end;` завершает цикл и программу.