{ define.pas }

function fx(x, y : real) : real;
begin
   fx := cos(x) - x * sin(y)
end; { fx }

function gy(x, y : real) : real;
begin
   gy := x * sin(y) + y * sin(x)
end; { gy }