var a: string;
i: integer;
begin
write('Введите своё имя: ');
readln(a);
for i:=1 to 10 do
writeln(a);
end.
var a: string;
i: integer;
begin
write('Введите своё имя: ');
readln(a);
for i:=1 to 10 do
writeln(a);
end.