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

var x : real; { объявление переменной }
begin { начало программы }
ReadLn(x); { первый шаг }
WriteLn(ln(1-x)/(1+sin(x))/ln(10)); { второй шаг }
end. { конец программы }