Даны четыре целых числа, сколько из них четные. решение

Var a,b,c,d,x:integer;
begin
x:=0;
wirteln('Введите число 1');
readln(a);
wirteln('Введите число 2');
readln(b);
wirteln('Введите число 3');
readln(c);
wirteln('Введите число 4');
readln(c);
if a div 2 = 0 then x:=x+1;
if b div 2 = 0 then x:=x+1;
if c div 2 = 0 then x:=x+1;
if d div 2 = 0 then x:=x+1;
writeln ('Четных чисел= ',x)
end.