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