var
  a, p, v, t, s: integer;

begin
  writeln('Введите трехзначное число');
  read(a);
  p := a div 100;
  v := (a div 10) mod 10;
  t := a mod 10;
  s := p + v + t;
  if (p > v) and (p > t) then writeln('Наибольшая цифра ', p);
  if (v > p) and (v > t) then writeln('Наибольшая цифра ', v);
  if (t > p) and (t > v) then writeln('Наибольшая цифра ', t);
  writeln('Сумма всех чисел этого числа=', s);
end.