Ответы
Ответ дал:
0
var
i: Integer;
name, surname: String;
begin
writeln('Введите имя');
readln(name);
writeln('Введите фамилию');
readln(surname);
for i := 1 to 10 do
writeln(name,' ', surname);
end.
Вас заинтересует
2 года назад
2 года назад
3 года назад
9 лет назад
9 лет назад
10 лет назад