Напишите пользовательские функции, которые вычисляют соответственно минимум и максимум из двух чисел. Вычислите значение выражения:

Function Min(a1,a2:real):real;
begin if a1>a2 then result:=a2 else result:=a1;
 
end;

Function Max(a1,a2:real):real;
begin if a1>a2 then result:=a1 else result:=a2;
 
end;

Program New;
Function Min(a1,a2:real):real;
begin if a1>a2 then result:=a2 else result:=a1;end;
Function Max(a1,a2:real):real;
begin if a1>a2 then result:=a1 else result:=a2;end;
var f,p,x,y,z:real;
begin write('x=');
      readln(x);
      write('y=');
      readln(y);
      write('z=');
      readln(z);
      f:=5*x*x*x;
      p:=abs(Min(f,y)+Max(y,z))/2;
      writeln('p=',p);
      readln;
 
end.

Program New;
Function Min(a1,a2:real):real;
begin if a1>a2 then Min:=a2 else Min:=a1;end;
Function Max(a1,a2:real):real;
begin if a1>a2 then Max:=a1 else Max:=a2;end;
var f,p,x,y,z:real;
begin write('x=');
      readln(x);
      write('y=');
      readln(y);
      write('z=');
      readln(z);
      f:=5*x*x*x;
      p:=abs(Min(f,y)+Max(y,z))/2;
      writeln('p=',p);
      readln;
 
end.