fpc/utils/pas2js/samples/fordowndemo.pp

program fordemo;

var i : integer;

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