program eg7;
var x:integer;
begin
x:=1;
while x<=10000
0 do
begin
writeln(x);
x:=x + 1
end
end.