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

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