Дано 4х злачное число, подсчитать среднеарифметическое четных чисел. + выполнить проверку

Program ops;
var a,b,c,d:integer; 
   s: real;begin
writeln('введите четырёхзначное число');
readln(a);
b:=a  mod 10;
a:=a div 10;
c:=a mod 10;
a:=a div 10;
d:=a mod 10;
a:=a div 10;
s:=(b+c+d+a)/4;
writeln(s);
end.