{* Задача 409 *}

Unit ZADACH409;
Interface
Implementation
Begin
 writeln('Даны числа A, B, C. Найдите произведение максимального и минимального чисел');
End.

Program zadach409;

Uses zadach409.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.