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

program zz1;
var n, b:integer; // задаем переменные целого типа
begin
for n:=5 to 1000 do // организуем цикл, в котором переберем все числа от 5 до тысячи
if (n mod 2 = 0) then b:=b + n; // проверяем условие, если число из цикла делится на 2 без остатка, то прибавляем его к сумме
write( сумма четных чисел из данного диапазона = , b); // выводим ответ
end.