Вычислите соответствующие значения функции z для каждого х и у, с учетом области определения, входящих в нее функций

[Romania92]

Вычислите соответствующие значения функции z для каждого х и у, с учетом области
определения, входящих в нее функций, при x=x0(hx)xn, y=yo(hy)yn.

program lab8z6;
uses crt;
const pi=3.14;
var x,x0,hx,xn,y,y0,yn,hy,p,t,s,z:real;
BEGIN
writeln('vvedite x0,hx,xn');
readln(x0,hx,xn);
writeln('vvedite y0,hy,xn');
readln(y0,hy,yn);
x:=x0;
repeat
y:=y0;
repeat
 if (x*y<0) and (pi-x)>=0
 then z:=sqr(y)*y-sqrt(pi-x)
 else
 if ((y*x)<=2) and ((y*x)>=0) and (2*pi+3*y)>=0 then
 z:=sqr(sin(sqr(x-1)*(x-1))-sqrt(2*pi-3*y))
 else
 if (y*x)>2 and (pi-x)>0 then
 z:=x*(sqr(x)+3)+(ln(pi-x)/ln(3));
 writeln('x= ',x:7:2,'y= ',y:7:2,'z= ',z:7:4);
 y:=y+hy;
 until y>yn;
 x:=x+hx;
 until
 x>xn;
 readln;
 END.

В чём может быть ошибка?

[Stilet]

and (pi-x)>=0

Что это?

and (2*pi+3*y)>=0

Приоритеты?
Сначала выполнится бла-бла and (2*pi+3*y)
Так что and ((2*pi+3*y)>=0)

Это для начала.