Помогите записать на Паскале арифметическое выражение

a:=x*x+cos(exp(0.5*ln(x+abs(x*x-exp(x)))))
b:=exp(2*ln(x*x*x-sin(x))/ln(10))
c:=exp(2*ln(a/b))

Можно в ону строку:

res := sqr(arctan(sqr(x)+cos(sqrt(a ...и т. д. легче запутаться

Не красиво и не понятно.

Вот так лучше и красивее и проще:

Разбить выражение на более мелкие

x0 := x + abs(x*x-exp(x));
if x0 < 0 then begin WriteLn('Корень из отрицательного числа? '); Halt; end;
x1 := ln(x*x*x-sin(x))/ln(10);
if x1 = 0 then begin WriteLn('Деление на 0?'); Halt; end;
res := sqr(arctan(x*x+cos(sqrt(x0))/x1/x1));

Вот!
Посчитали и отловили ошибки!