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

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