function f1(x,y:real):real; begin f1:=sin(x+y)-1.5*x; end; function f2(x,y:real):real; begin f2:=power(x, 2)+power(y, 2)-1; end;