var
n:longint;
k,sum:integer;
begin
write ('N = ');
readln(n);
k:=0;
sum:=0;
while n <> 0 do
if (n mod 10) mod 2 = 0 then
k:=k+1;
sum:=sum+(n mod 10);
end;
n:=n div 10;
writeln ('Summa: ',sum);
writeln ('Kol-vo: ',k);
readln;
end.
var
n:longint;
k,sum:integer;
begin
write ('N = ');
readln(n);
k:=0;
sum:=0;
while n <> 0 do
begin
if (n mod 10) mod 2 = 0 then
begin
k:=k+1;
sum:=sum+(n mod 10);
end;
n:=n div 10;
end;
writeln ('Summa: ',sum);
writeln ('Kol-vo: ',k);
readln;
end.