program tab;
uses crt;
var i:integer;


begin
clrscr;
for i:=1 to 20 do begin
   writeln(i);
   end;

readkey;
end.