Вычислить сумму четных целых чисел из (n, m)

program zz1;

var n, m, r, i:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (n);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (m);

for i:=n to m do / / организуем цикл, в котором переберем все числа от n до m

if i mod 2 = 0 then r:=r + i; / / проверяем число на четность и вычисляем сумму четных чисел от n до m по формуле

write (' сумма четных чисел от ', n,' до ', m,' = ', r); / / выводим ответ

end.