Найти сумму четных чисел от 1 до 30. Написать блок схему и программу.

var     n, m, sum: integer;   begin     sum := 0;     repeat     writeln('Введите числ с которого начинается ряд');     readln(n);     writeln('Введите число которым заканчивается ряд');     readln(m);     until n<m;       if odd(n) then n := n + 1;     if odd(m) then m := m - 1;     sum := (n + m) * (m - n + 2) div 4;     writeln('Сумма чётных чисел натурального ряда: ', sum); end.