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

var a,b,s,i:integer;beginwriteln('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 100s = 1260