1 2 3 4 5 6 7 8 9
program ForBlockWriteln; var i: integer; begin for i := 3 to 10 do begin writeln(i); end; end.