Помогите пожалуйста с Паскалем!!
С клавиатуры вводят 25 целых чисел. Найти среднее арифметическое тех из них которые кратны 4, но не оканчиваются на 4

var a,s,k: integer;

begin

s:=0;

k:=0;

for i:=1 to 25 do

begin

read(a);

if (a mod 4=0)and(a mod 10<>4)

 then begin s:=s+a; k:=k+1; end

end;

if k<>0 then writeln(s/k)

else writeln('Нет нужных чисел');

end.

Пример (для 5 чисел):

12 44 15 48 24

30