program bai_giai;
uses crt;
var n,n1:longint;
    a,d,t,d3:byte;
begin
    clrscr;
    write('Nhap n: ');  readln(n);
    d:=0; t:=0; d3:=0; n1:=n;
    while n1<>0 do
        begin
            a:=n1 mod 10;
            d:=d+1; t:=t+a; if a mod 3=0 then d3:=d3+1;
            n1:=n1 div 10;
        end;
    writeln(d);
    writeln(t);
    writeln(d3);
    while n<>0 do
        begin
            a:=n mod 10;
            if (a=2) or (a=3) or (a=5) or (a=7) then write(a,' ');
            n:=n div 10;
        end;
    readln;
end.

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.