Ol Oleg 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.