var x, a, result: real;begin// ввод значения переменной xwrite('Введите значение x: ');readln(x);
// вычисление значения выраженияresult := sqrt(abs(ln(tan(0.85) + power(abs(x), 5)));
// вывод результатаwriteln('Результат: ', result:0:2);end.
var x, a, result: real;
begin
// ввод значения переменной x
write('Введите значение x: ');
readln(x);
// вычисление значения выражения
result := sqrt(abs(ln(tan(0.85) + power(abs(x), 5)));
// вывод результата
writeln('Результат: ', result:0:2);
end.