Программирование Pascal. составьте программу вычисления функции y=(1-cosx)/sinx

var X : real;
begin
Write('X = '); ReadLn(X);
if Sin(X) = 0 then WriteLn('не существует') else WriteLn('Y = ', (1-Cos(X)) / Sin(X):0:5);
end.