fpc/utils/pas2js/samples/repeatdemo.pp

program fordemo;

var i : integer;

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