Вычислить значение выражения - Turbo Pascal (29402)

Program zad29;
uses crt;
var x,y:real;
begin
writeln('vvedite x');
read(x);
y:=exp(ln(exp(ln(arctan(x))*2))*(1/3))*(x-Pi)/x-3.5;
writeln(y);
end.

Что тут не так? X₁=3.1∙10¹⁰; Y₁=4.882∙10^-11

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

Program zad29;
uses crt;
var x,y:real;
begin
x:=3.1e10;
y:=exp(ln(1+sqr(arctan(x-pi)))/3)/(x-3.5);
writeln(' ');
writeln(y);
readln
end.

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

Создается программа с именем zad29.
В программе используется библиотека crt.
Объявляются две переменные типа real: x и y.
Значение переменной x устанавливается равным 3.1e10.
Значение переменной y вычисляется как результат экспоненты от натурального логарифма от суммы квадрата арктинуса от разности x и pi, деленного на 3 и приведенного к целому числу, деленного на разность x и 3.5.
Выводится значение переменной y.
Программа завершается, ожидая ввода пользователя.