Question

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

Answer 1

var i: Integer;
a,b: String;
begin
writeln('Введите своё имя');
readln(a);
writeln('Введите свою фамилию');
readln(b);
for i:=1 to 10 do
begin
writeln(i,'. ',a+' '+b);
end;
end.

Answer 2

//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var s:=ReadString('введите свое имя и фамилию:');
for var i:=1 to 10 do s.Println;
end.