Вычислить и вывести на экран значение заданной функции - Turbo Pascal

const a=2.9;
.........................
if x>1 then y:=a*ln(x)/ln(10)+exp(ln(abs(x))/3)//нафига модуль если x>1?
else y:=2*a*cos(x)+3*x*x;