Uses MyCrt;

Var
  i : byte;

Begin
  clrscr;
  gotoxy(1,1);
  write('1');
  for i:=2 to 20 do
  Begin
    gotoxy(wherex,wherey+1);
    write(i);
  End;
  writeln(#13+#10+'ennyi.');
  readkey;
END.