В Pascal ABC составить программу для подсчета четных цифр, используемых для записи произвольного числа X. использовать цикл с предусловием, другого не проходилиОЧЕНЬ СРОЧНО ПОЖАЛУЙСТА!!!!!

Program red;
var a,b:integer;
begin
b:=0;
readln(a);
if abegin
if a mod 2=0 then b:=1;
end;
if (a>=10) and (abegin
if ((a div 10) mod 2=0) and (a div 10 0) then b:=b+1;
if ((a mod 10) mod 2=0) and (a mod 10 0) then b:=b+1;
end;
if (a>=100) and (abegin
if ((a div 100) mod 2=0) and (a div 100 0) then b:=b+1;
if (((a div 10) mod 10) mod 2=0) and ((a div 10) mod 10 0) then b:=b+1;
if ((a mod 10) mod 2=0) and (a mod 100) then b:=b+1;
end;
writeln(b);
end.