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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.