Задано два целых числа a и b. найдите сумму четных чисел от a до b.

var

a, b, i, sum : integer; / / объявляем переменные целочисленного типа.

begin

writeln ('Введите два целых числа - границы промежутка:'); / / вывод строки на экран.

readln (a, b); / / считываем значения переменных, введенных с клавиатуры.

for i:=a to b do / / начало цикла

begin

if (i mod 2 = 0) then sum : = sum + i; / / считаем сумму четных чисел.

end;

writeln ('Сумма четных чисел от ', a, ' до ', b, ' равна: ', sum); / / вывод строки на экран.

end.