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

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