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

program zz1;

var x, y, r:real; / / задаем переменные не целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (x);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (y);

if (x > 0) and (y > 0) / / проверяем условие

then r: = (sqr (x) + sqr (y) + sin (x)) / (x + y)

else r:=sqr (x + y) / (x * x * x + y * y * y);

write (' полученный результат = ', r:5:2); / / выводим ответ в столбец в формате пять знаков для всего числа и два знака после точки

end.