помогите составить программу вычисления функции в Delphi

function f(x, y, a, b, p:Double):Double;
var
xy2, ab:Double;
begin
xy2:=x*sqr(y);
ab:=a*b;
Result:=Power(1+xy2+(sqr(x)+sqr(sqr(y)))/xy2, p)-Power(1+ab+(sqr(a)+sqr(b))/ab, p)/2;
end;