Написать алгоритм для вычисления суммы нечетных чисел на отрезке от -30 до 45

Var
  i, s: integer;
begin
  for i := -30 to 45 do
    if i mod 2 = 0 then s := s + i;
  writeln('s= ', s);
end.