{* Задача 410 *}

Unit ZADACH410;
Interface
Implementation
Begin
 writeln('Найдите сумму максимального и минимального чисел из трех заданных. ');
End.

Program zadach410;

Uses zadach410.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  a   : real;
  b   : real;
  c   : real;
  min : real;
  max : real;
Begin
  clrscr; {* Очищаем экран *}
  writeln('введите числа А, В, С');
  read(a, b, c);
  If ac Then
    Goto 7;
  writeln('C большее');
  max := c;
  Goto 8;
  6 : writeln('B большее');
  max := b;
  Goto 8;
  7 : writeln('A большее');
  max := a;
  8 : writeln('сумма минимального и максимального из трёх чисел', max + min);
End.