program TEST;
var
  i : integer;
   
begin
   while i < 20 do begin
      i := i + 1;
      writeln(i);
   end;
end.