function f2(x,y:real):real; begin f2:=x*x+y*y-1; end;
f2:= (x*x)+(y*y)-1;
Я не понял Вашего вопроса, но всё же Вам на него отвечу!