Составьте программу вычисления значений функции y=(1-ln(cos(x)))/sin(x) с учетом области определения функции.

Спасибо большое)

Var X:real;BeginWrite('X = ');ReadLn(X);if Cos(x)>0 then Beginif Sin(x)<>0 then Write('Y = ',(1-Ln(Cos(x)))/Sin(x)) Endelse Write('Значение функции не определено')End.