Ответ:

Var s,n:integer;

Begin

write('Введите число: ');readln(n);

s:=0;

While n<>0 do

Begin

if n mod 10 mod 2 = 0 then

s:=s+n mod 10;

n:=n div 10;

End;

if s<>0 then writeln('Сумма четных цифр: ',s)

else

writeln('Нету четных цифр в числе');

readln;

End.