Помогите пожалуйста работа с паскалем Найти сумму целых положительных чисел из промежутка...

Question

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

Answer 1

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