NB: Delphi has a hint for those cases:
1.pas(5) Hint: FOR or WHILE loop executes zero times - deleted 1.pas(8) Hint: FOR or WHILE loop executes zero times - deleted
Show quoted text 10 lines
program bug3272;
var i: integer;
begin
for i:= -1 to -2 do
writeln (i);
writeln;
for i:= 1 to 0 do
writeln (i);
end.