Помогите сделать линейный алгоритм функции в Pascal
 

Помогите сделать линейный алгоритм функции в Pascal!!!
Y=Q*arctg(∏+α*x)*ln|sin(∏+Q*x)|
Q=((2*α+x)/cos(2*x))+sin2[2*(∏+α*x)]
α=(∏+x2)/2 x=1,164

Издеваться изволите?
http://www.tehnari.ru/f22/t43067/
Вас что, в бан отправить? Или как сие понимать прикажете?

Извините, но у меня её не приняли сказали что надо сделать линейный алгоритм!

Извините, Марина, может быть, конечно, я отстал от жизни, но с моей точки зрения выложенная программа настолько линейная, что линейнее некуда. Чего им (преподам) еще надо - не представляю.