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

program SomeNameHere;

var

 i: integer;

 fullname: string;

begin

 Write('Введите ваше полное имя: ');ReadLn(fullname);

 i := 0;

 while i < 10 do begin

   WriteLn(fullname);i := i + 1;

 end;

end.

Объяснение: