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

PascalABC.Net
var
  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.3

Borland Pascal 7.01
uses 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);
  ReadKey
end.

Тестовое решение:
Введите x,y,z: 3 6 -2
-3.0000000000E-01