Найти все числа в диапозоне от 20 до 450, кратных 4. Подсчитать все числа. применить цикл с параметром

program zz1;

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

begin

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

if i mod 4 = 0 then

begin writeln (' кратное 4 число = ', i); r:=r + i; end; / / проверяем, если очередное число делится на 4, то вычисляем добавляем его к сумме

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

end.