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.
Объяснение:
