---

Program n12;
Var x, a, b, c, d, max, min, sum: integer;
Begin
  Writeln('Введите четырёхзначное число:');
  Readln(x);
  a := x div 1000;
  b := x div 100 mod 10;
  c := x div 10 mod 10;
  d := x mod 10;
  max := a;
  if b > max then max := b;
  if c > max then max := c;
  if d > max then max := d;
  min := a;
  if b < min then min := b;
  if c < min then min := c;
  if d < min then min := d;
  sum := max + min;
  Writeln('Наибольшая цифра = ', max);
  Writeln('Наименьшая цифра = ', min);
  Writeln('Их сумма = ', sum);