Pascal Вычислить значение выражения в зависимости от значений переменных, если х> 0 и y>...

Question

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

Answer 1

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.