Составить программу для вычисления суммы нечетных чисел (оператор for)

Var sum,i:integer;beginsum:=0;for i:=1 to 100 do  if ( i mod 2 <> 0 )then    sum:=sum+i;writeln(sum);end.