Вычислить значения двух функций в n равномерно распределенных в диапазоне а≤x≤b точках. a=1 b=3 n=12 f1(х)=√(e^(x) -1) f2(х)=x ln^2 x (паскаль)

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

begin
  var (a,b,n):=(1.0,3.0,11);
  foreach var x in Range(a,b,n) do
    Writeln(x:7:5,Sqrt(Exp(x)-1):18:15,x*Ln(x)**2:18:15)
end.