program fordemo;

var i : integer;

begin
  i:=0;
  Repeat
    writeln(i);
    i:=i+1;
  Until i=100;
end.