[Trotil]

write(st);
val(st,x,code);
i := int(x).
count:=0;
if (code<>0) then
while (i<>0) do
   begin 
        b:=i mod 10;
        if (b mod 2 = 0) then count:=count+b;
        i:=i div 10;
    end;

Вот примерчик для подсчета суммы четных цифр для одного числа.

Ghost, опередили...
Только не " if (r div 2) = 0 then inc (s, r);"
а " if (r mod 2) = 0 then inc (s, r);"