var a:string;
i:integer;
begin
writeln('введите имя пользователя');
read(a);
for i:= 1 to 22 do
writeln(i,' ',a);
end.
