Хелп Составить программу расчета по формуле

var x,y,z:real;
begin
write('x = ');
readln(x);
write('y = ');
readln(y);
z:=(sin(x)+cos(y))/(cos(x)-sin(y))*(sin(x*y)/cos(x*y));
writeln('z = ',z);
end.

Пример:
x = 2
y = 3
z = -0.0421391746986865