{* Задача 515 *}

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

Program zadach515;
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.