fpc/utils/pas2js/samples/fordemo.pp

program fordemo;

var i : integer;

begin
  for I:=0 to 100 do 
    Writeln(i);
end.