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

program zz1;
var x, y:real; // задаем переменные не целого типа
begin
write(введите начальное значение х ); // вводим с клавиатуры начальное значение х
read(x);
y:=sqrt(абс(ln(tan(0.85) + абс(x * x * x * x * x)))); // вычисляем функцию по заданной формуле
write( полученное значение функции = , y); // выводим ответ
end.