Используя процедуру поиска наибольшего из двух чисел, составить программу вычисления выражения

var
  x,y,z:real;
function max(i,j:real):real;
begin
  if i>j then max:=i else max:=j;
end;
function min(i,j:real):real;
begin
  if i<j then min:=i else min:=j;
end;
begin
  write('BBeguTe x,y,z:');readln(x,y,z);
  writeln('max(x+y+z,x*y*z)+3=',max(x+y+z,x*y*z)+3:0:2);
  writeln('min(x,y+z,z^2)=',min(x,min(x+z,z*z)):0:2);
  if max(x*x,y)<>0 then
    writeln('min(x,y^2)/max(x^2,y)=',min(x,y*y)/max(x*x,y):0:2) else
    writeln('min(x,y^2)/max(x^2,y)=NAN');
end.

var
  x,y,z,t,t1:real;
procedure max(i,j:real;var k:real);
begin
  if i>j then k:=i else k:=j;
end;
procedure min(i,j:real;var k:real);
begin
  if i<j then k:=i else k:=j;
end;
begin
  write('BBeguTe x,y,z:');readln(x,y,z);
  max(x+y+z,x*y*z,t);
  writeln('max(x+y+z,x*y*z)+3=',t+3:0:2);
  min(x+z,z*z,t);min(x,t,t);
  writeln('min(x,y+z,z^2)=',t:0:2);
  max(x*x,y,t);min(x,y*y,t1);
  if t<>0 then
    writeln('min(x,y^2)/max(x^2,y)=',t1/t:0:2) else
    writeln('min(x,y^2)/max(x^2,y)=NAN');
end.