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