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

var first_name, last_name : string; / / где first_name - имя, а last_name - фамилия.

i : integer;

begin

cls;

write ('Введите свое имя: ');

readln (first_name);

write ('Введите свою фамилию: ');

readln (last_name);

for i : = 1 to 10 do writeln (first_name, ' ', last_name);

end.