Ответ:

var

n,s:longint;

n1:integer;

begin

readln(n);

s:=0;

while n <> 0 do begin

n1:=n mod 10;

if n1 mod 2 = 0 then s:=s+n1;

n:=n div 10 end;

writeln('s=',s)

end.

Объяснение:

картинка

Строки 2 и 3 можно менять местами

Строки 5 и 6 можно менять местами

var

n1:integer;

n,s:longint;

begin

s:=0;

readln(n);

while n <> 0 do begin

n1:=n mod 10;

if n1 mod 2 = 0 then s:=s+n1;

n:=n div 10 end;

writeln('s=',s)

end.

Описываем переменные

Вводи число

Начальное значение переменной для накопления суммы равно 0

Цикл (пока число неравно 0):

вычисляем последнюю цифру числа

проводим проверку на чётность, если пройдена, то суммируем

отбрасываем последнюю цифру числа

Выводим результат