паскаль
Заданы целые числа x, y, z. Вычислите значение выражения.
m=((max(3x,yz-x,z+x)+6z)/ -5min(x,z);

PascalABC.Netvar  x,y,z:integer;  m:single;begin  Write('Введите x,y,z: '); Read(x,y,z);  m:=(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));  Writeln(m)end.Тестовое решение:Введите x,y,z: 3 6 -2-0.3Borland Pascal 7.01uses Crt;function max(m,n:integer):integer;begin if m>n then max:=m else max:=n end;function min(m,n:integer):integer;begin if m<n then min:=m else min:=n end;var  x,y,z:integer;  m:real;begin  ClrScr;  Write('Введите x,y,z: '); Read(x,y,z);  m:=(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));  Writeln(m);  ReadKeyend.Тестовое решение:Введите x,y,z: 3 6 -2-3.0000000000E-01