Сделать в Паскале 15 вариант оба задания по информатике

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  var y:=Ln(5*x)+Sqrt(Cos(x)/x)+12*x+Sin(10*x);
  Writeln('y=',y)
end.

Примеры
x= 1.424
y=20.3661207208549

x= 0
y=NaN - результат не является допустимым числом (логарифм 0)