Помогите сделать задание (язык паскаль)

[Maserati]

Надо решить с использованием "FUNCTION"

Даны действительные числа. Вычислите значение следующего выражения с использованием функции:

[Mad_Cat]

function min(a,b:real):real;
begin
if a>b then min:=b
else min:=a;
end;
var x,y,z:real;
begin
readln(x,y,z);
writeln((x*y*y*y+min(min(x,y),z))/((min(min(x,y*y),z-3))+x*x*y*y));
end.

2
3
4
1.51351351351351