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

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.