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)