zadach236.PAS

{* Задача 236 *}

Unit ZADACH236;
Interface
Implementation
Begin
 writeln(' Даны числа a, b, c. Составить программу вычисления (min(a, c)-min(a, b)/(5+min(b, c))');
End.

Program z29;

Uses zadach236.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  a  : real;
  b  : real;
  c  : real;
  m1 : real;
  m2 : real;
  m3 : real;
  w  : real;
Var {* В работе нам потребуются переменные: *}
  d : real);
  e : real);
  m : real);
Begin
  If d > e Then
    m := e
  Else m := d;
End;
Begin
  clrscr; {* Очищаем экран *}
  write('a=');
  readln(a);
  write('b=');
  readln(b);
  write('c=');
  readln(c);
  min(a, c, m1);
  min(a, b, m2);
  min(b, c, m3);
  w := (m1 - m2) / (5 + m3);
  writeln('ОТВЕТ:', w);
  readln; {* Приостановка программы. Ожидание Enter *}
End.