Program F64;
Uses Crt;
Var
        i:integer;
Begin
ClrScr;
GotoXY(40,1);
For i:=1 to 20 do
begin;
Writeln(i);
end;
Readln;
End.