Паскаль турбо - Turbo Pascal

Формулировка задачи:

Помогите,буду очень благодарен вычислить значение функции,где а=0,834; х=1,256.

Решение задачи: «Паскаль турбо»

Листинг программы

uses crt;
const a=0.834;
      x=1.256;
var y:real;
begin
clrscr;
y:=ln(abs(ln(abs(x)))/ln(10))-sqr(ln(x))/(a-arctan(abs(x/a)));
write('y=',y:0:4);
readln
end.

Объяснение кода листинга программы

Установка начального значения переменной a равным 0.834.
Установка начального значения переменной x равным 1.256.
Объявление переменной y типа real.
Очистка экрана с помощью функции clrscr.
Вычисление значения переменной y с помощью формулы: y = ln(abs(ln(abs(x)))/ln(10))-sqr(ln(x))/(a-arctan(abs(x/a))).
Вывод значения переменной y с помощью функции write, с указанием форматного specifier '0:4' для вывода 4 знаков после запятой.
Чтение значения из консоли с помощью функции readln.
Завершение программы.