Работа с паскалем найти сумму целых положительных чисел из промежутка от а до в, кратных 4. значения а и в вводятся с клавиатуры.

Var a,b,s,i:integer;
begin
writeln('a, b:');
readln(a,b);
s:=0;
for i:=a to b do
 if i mod 4=0 then s:=s+i;
writeln('s = ',s);
end.

Пример:
a, b:
20 100
s = 1260