1 2 3 4 5 6 7 8 9 10 11
program fordemo; var i : integer; begin i:=0; Repeat writeln(i); i:=i+1; Until i=100; end.