Найти сумму чётных цифр числа) ) решить в паскале. буду )

var
s:integer;
a,n:longint;
begin
write ('A =');readln(a);

if (a div 10 = 0) and (odd(a)=false) then s:=a else begin
n:=a; 
while n div 10 <> 0 do begin
n:=a; 
if odd(a mod 10)=false then s:=s+a mod 10;
a:=a div 10;
end;

end;
writeln (s);
readln;
end.