Ciklusváltozó hibás használata

Feladat: Adjuk össze 100-ig a hárommal osztható pozitív számokat!

program Hiba;
uses Crt;
var i, sum: integer;
begin
  ClrScr;

  {hibás}
  sum := 0;
  for i := 3 to 100 do
    begin
      sum := sum + i;
      Inc(sum, 2)
    end;
  WriteLn(sum);

  {helyes}
  sum := 0;
  i:=3;
  while i < 100 do
    begin
      sum := sum + i;
      Inc(i, 3)
    end;
  WriteLn(sum);

  {vagy}
  sum := 0;
  for i := 1 to 100 div 3 do
      Inc(sum, 3 * i);
  WriteLn(sum);

  ReadLn
end.