var 
  x, y, z:integer;
begin
  x := 1;
  while x < 10 do
  begin
    writeln(y);
    inc(x);
  end;
end.