Ввести действительные числа x,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.