MODULE Test;

IMPORT Out, CPMath, CPStrings;


VAR
  s : ARRAY 80 OF CHAR;
  v, m, r, f : LONGREAL;
  e : LONGINT;

BEGIN
  v := CPMath.Pi();
  m := CPMath.Mantissa(v);
  e := CPMath.Exponent(v);
  r := CPMath.Real(m, e);
  f := CPMath.Frac(v);
  Out.LongReal(v, 0); Out.Ln;
  Out.LongReal(m, 0); Out.Ln;
  Out.Int(e, 0); Out.Ln;
  Out.LongReal(r, 0); Out.Ln;
  Out.LongReal(f, 0); Out.Ln;
END Test.