Написать алгоритм для вычисления суммы нечетных чисел на отрезке от -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.