Пожалуйста посчитайте с задачей (Паскаль )

var a,s:integer;
begin
readln(a);
s:=0;
while a<>0 do
 begin
 if (a>99)and(a<1000)and(a mod 4=0)
  then s:=s+a;
 readln(a);
 end;
writeln('s = ',s);
end.

Пример:
28
192
104
117
0
s = 296