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

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);

writeln (z);

end.

там если не x^2 то запишите так z:=2*x+2*y*sin (x);

если в радианах sin (X)

а если в градусах сказано то там будет sin (x*pi/180)