Найти сумму целых положительных чисел из промежутка от А до B, кратных 4. - Pascal ABC

Формулировка задачи:

Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.(значения А и В вводятся с клавиатуры)

Решение задачи: «Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.»

Листинг программы

program R; 
var a,b,i,summ:integer;
begin
Writeln('Введите А и В');
readln(a,b);
for i:=a to b do
if i mod 4 = 0 then summ:=summ+i;
Writeln('Сумма = ',summ);
readln
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных a, b и summ типа integer.
Выводится сообщение «Введите А и В», и пользователю предлагается ввести значения для переменных a и b.
Затем происходит цикл for, который выполняется от a до b (не включая b).
Внутри цикла проверяется условие if i mod 4 = 0, где i - это текущее значение переменной i. Если это условие истинно, то к переменной summ прибавляется значение i.
После завершения цикла выводится сообщение «Сумма = », и значение переменной summ выводится на экран.
В конце программы выводится команда readln, чтобы пользователь мог увидеть результат.