program Hello;
uses crt;
var n,snt:string;
tong,i,a,d,sl:longint;
procedure tinh;
begin
if n[1] = '-' then
begin
sl:= length(n) - 1;
delete(n,1,1);
end
else sl:= length(n);
for i:= 1 to length(n) do
begin
val(n[i],a);
tong:= tong + a;
if a mod 3 = 0 then inc(d);
if (a = 2) or (a = 3) or (a = 5) or (a = 7) then
snt:= snt + n[i] + ' ';
end;
end;
begin
readln(n);
tinh;
writeln('So chu so: ', sl);
writeln('Tong cac chu so: ', tong);
writeln('So chu so chia het cho 3: ', d);
writeln('Cac so nguyen to: ', snt);
readln;
end.