ввести действительные числа x,y,z. вычислить и выдать на печать значение числа m такого что m=max(x,y,z)/min(x-y,x-z,y-z)

function mm(x,y,z:real):real;varf:real;beginif (x>y) and (x>z) thenf:=xelse if (y>x) and (y>z) thenf:=yelse if (z>x) and (z>y) thenf:=z;mm:=f;end;

varx,y,z,m:real;beginreadln(x);readln(y);readln(z);m:=mm(x,y,z)/-mm(-(x-y),-(x-z),-(y-z));writeln(m);end.