{ Даны числа a,b,c. Составить программу вычисления (min(a,c)-min(a,b)/(5+min(b,c)) }

uses crt;
var a,b,c,m1,m2,m3,w:real;
procedure min(var d,e,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;
end