var a,s,min,max: integer;
begin
readln(a);
min:= a mod 10;
max:= a mod 10;
while (a>0) do
s:=s+a mod 10;
if (a mod 10) < min then min:=a mod 10;
if (a mod 10) > max then max:=a mod 10;
a := a div 10;
end;
writeln('Наибольшая цифра: ',max);
writeln('Наименьшая цифра: ',min);
writeln('Сумма цифр: ',s);
end.
var a,s,min,max: integer;
begin
readln(a);
min:= a mod 10;
max:= a mod 10;
while (a>0) do
begin
s:=s+a mod 10;
if (a mod 10) < min then min:=a mod 10;
if (a mod 10) > max then max:=a mod 10;
a := a div 10;
end;
writeln('Наибольшая цифра: ',max);
writeln('Наименьшая цифра: ',min);
writeln('Сумма цифр: ',s);
end.