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

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.