uses crt;
function sumDigits(n: longint): integer;
var tong: integer;
begin
    tong := 0;
    while n > 0 do begin
        tong := tong + (n mod 10);
        n := n div 10;
    end;
    exit(tong);
end;
function maximumDigits(n: longint): integer;
var res: integer;
begin
    res := n mod 10;
    while n > 0 do begin
        if n mod 10 > res then res := n mod 10;
        n := n div 10;
    end;
    exit(res);
end;
function minimumDigits(n: longint): integer;
var res: integer;
begin
    res := n mod 10;
    while n > 0 do begin
        if n mod 10 < res then res := n mod 10;
        n := n div 10;
    end;
    exit(res);
end;
var n: longint;
begin
    readln(n);
    writeln('Tong chu so: ', sumDigits(n));
    writeln('Chu so lon nhat: ', maximumDigits(n));
    write('Chu so be nhat: ', minimumDigits(n));
end.