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