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

var

x, y, z : double;

begin

/ / Организовываем ввод x и y

write ('Введите x ');

readln (x);

write ('Введите y ');

readln (y);

/ / Проверяем если и x и y больше 0

/ / тогда вычисляем z выводим результат

/ / иначе выводим сообщение о неправильных значениях x и y

if (x>0) and (y>0) then

begin

z : = x*x+y*y*sin (x);

writeln ('z = ', z);

end

else writeln ('Значение x или значение y не положительное');

end.