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

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