Задача на поиск минимума

[Stan]

Найти Min(x^3; y^2-1; z)

[Shuraken]

Мдя. Была на форуме задача:
Найти Max(a, b, c) и там предложили большое количество вариантов, но поскольку поиском пользоваться, как я понимаю лень, то вот код:
function MyMin(x, y, z: integer): integer;
begin
if (x*x*x) < (y*y - 1) and (x*x*x) < z then
Result := x*x*x else
if (Y*y - 1) < (x*x*x) and (y*y - 1) < z then
Result := y*y - 1 else
Result := z;
end;

[pu4koff]

min(min(x*x*x,y*y-1),z)

[Tayfun]

program zad;
uses crt;
var
x,y,z:real;
begin
clrscr;
writeln('VVEDITE x,y,z);
readln(x,y,z);
x:=exp(3*ln(x));
y:=exp((y)*ln(y))-1;
if (x<y) and (x<z) then writeln('MIN->',x) else
if (y<x) and (y<z) then writeln('MIN->,y) else writeln('MIN->z);
readkey;
end.