Составить программу, которая позволит подсчитать сумму чётных чисел из диапазона 5-1000

program zz1;

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

begin

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

if (n mod 2 = 0) then b:=b + n; / / проверяем условие, если число из цикла делится на 2 без остатка, то прибавляем его к сумме

write (' сумма четных чисел из заданного диапазона = ', b); / / выводим ответ

end.