Напишите пожалуйста как это будет выглядеть на языке pascal. Номер 8.

// PascalABC.NET 3.4.2, сборка 1782 от 01.09.2018

// Внимание! Если программка не работает, обновите версию!

begin

 var x:=ReadReal('x=');

 var y:real;

 if Abs(x)lt;gt;1 then

 begin

   y:=Абс(Sqrt(Абс(1-Ln(Абс(x*x-1))))/((Tan(x*x*x))**3+2*Ln(Abs(x+1))));

   Print('y =',y)

 end

end.