Var
i,n,x,y,z:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
if (47 begin
n:=StrToInt(s[i]);
case n of 0..9:
begin
x:=x+1;
if n mod 2=0 then y:=y+1 else z:=z+1
end
end
end;
writeln('Число цифр: ',x,'; четных цифр: ',y,'; нечетных цифр: ',z)
end.