Помогите, пожалуйста,
решить задачу: 

Для
данного x вычислить значение функции, заданной системой:

f(x)= { ((Sqrt(x+2 )
 - 5)/(  x)+ Cosx+lnx;x≥1; 




2* sgr(x)   +( sgr(x-1)) /|x|   ;  x<1.
 

Решение написать на языке Pascal.