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)