Program Frac1;

{ Program to demonstrate the Frac function. }

Var
  R : Real;

begin
  Writeln (Frac (123.456): 0 : 3); { Prints  O.456 }
  Writeln (Frac (-123.456): 0 : 3); { Prints -O.456 }
end.