Помогите вычислить значение функции в паскале.

Напишите пожалуйста.. . Я не могу никак предусмотреть тот случай, если cos(x)=0

y=(tg(x)+arctg(x)) / (ln(x)-(1/x)

или точнее будет y:=((sin(x)/cos(x))+arctan(x)) / (ln(x)-(1/x))