fpc/utils/pas2js/samples/whiledemo.pp

program fordemo;

var i : integer;

begin
  i:=0;
  While (i<100) do
    begin
    writeln(i);
    i:=i+1;
    end;
end.