( PascalABC.NET )
var s: string;
var i: integer;
begin
write('Введите ваше имя и фамилию: ');
readln(s);
i:=s.Length-1;
while (i>0) do
writeln(s);
i:=i-1;
end;
end.
