freepascal.compiler/rtl/objpas/testm.pp

program testm;

uses math;

begin
  writeln (tan(arctan2(1,2)));
  writeln (pi/4,'=',arccos(cos(pi/4)));
  writeln (pi/4,'=',arcsin(cos(pi/4)));
end.