Pascal вычислить значение выражения в зависимости от значений переменных, если х> 0 и y> 0, то z = x^2 + y^2sinх / x+y. а если x< =0 и y< =0 , то z =( х+y)^2 / x^3 + y^3

Program gt;
var x,y,z:real;
begin
readln(x,y);
if(x>0)and(y>0)then z:=x*x+y*y*sin(x) else z:=(x+y)*(x+y)/(x*x*x);
writeln(z);
end.