var 
  x, y, z:integer;
begin
  x := 1;
  repeat
    writeln(y);
    inc(x);
  until x > 10;
end.