#include <iostream>
#include <string>
#include <algorithm>
using namespace std;
int d(unsigned long long n) {
return to_string(n).length();
}
int t(unsigned long long n) {
int s=0;
while (n>0) {
s+=n%10;
n/=10;
}
return s;
}
int d2(unsigned long long n) {
int d2=0;
while (n>0) {
int dem=n% 10;
if (dem>d2) {
d2=dem;
}
n/=10;
}
return d2;
}
int main() {
unsigned long long n;
cin>>n;
cout<<d(n)<< endl;
cout<<t(n)<<endl;
cout<<d2(n)<<endl;
return 0;
}

Var f:text; n,tong,i:integer;

S:string; max:char;

Begin

Assign('tongso.inp'); reset(f);

Readln(f,n);

Close(f);

Str(n,s);

Writeln(length(s));

Tong:=0; max:='0';

For i:=1 to length(s) do

Begin

Tong:=tong+(ord(s[i])-48);

If max<s[i] then max:= s[i];

End;

   Writeln(tong);

   Write(max);

Readln;

End.