Паскал. Пожалуйста посчитайте пожалуйста, задание на фото.

begin
var a:= ReadArrInteger(ReadInteger);
Writeln(a.Where(t -> (t mod 4 <> 0) and (abs(t)>99) and (abs(t)<1000)).sum);
end.