Program Example5;

{ Program to demonstrate the artanh function. }

Uses math;

begin
  Writeln(artanh(0) : 0 : 5);
  Writeln(artanh(0.5) : 0 : 5);
end.
{https://www.freepascal.org/docs-html/rtl/math/artanh.html}