var a,s,i:integer;
begin
writeln('введите шестизначное число');
readln(a);
s:=0;
for I:=1 to 6 do begin
if a mod 2 = 0 then s:=s+a mod 10;
a:=a div 10;
end;
writeln(s);
end.
var a,s,i:integer;
begin
writeln('введите шестизначное число');
readln(a);
s:=0;
for I:=1 to 6 do begin
if a mod 2 = 0 then s:=s+a mod 10;
a:=a div 10;
end;
writeln(s);
end.