Нахождение суммы всех нечётных чисел от 0 до 50 — Pascal(Паскаль)

program p1;

var
  i, sum: integer;

begin
  sum := 0;

  for i := 0 to 50 do
    if odd(i) then
      sum := sum + i;

  writeln('Summa= ', sum);

  readln;

end.