Составить алгоритм и написать программу по вычислению на языке pascal a=√(|ln(tg0.85+|x|^5)|)

Program name_1;
Var a,b :real;
Begin
Write('Введите x: ');
Readln(x);
a:=sqrt(abs(ln(tg(0.85)+sqr(sqr((abs(x)))*abs(x;
Wtiteln('a= ', a);
end.