подпрограмма-функция в делфи

[sv2311]

как в делфи реализовать подпрограмму-функцию

z=sqr(cos(mx))-1/2*sqr(cos(ny))+5 F=sqr(cos(av))+b

[Пепел Феникса]

1)тут две фунцкии
2)а в чем проблема?
не могу понять...

первое что пришло мне в голову:

function Z(mx,ny:real):real;
begin
 Result:=sqr(cos(mx))-1/2*sqr(cos(ny))+5;
end;

function F(av,b:real):real;
begin
 Result:=sqr(cos(av))+b;
end;