Function Frac (X : real) : Real;
Frac returns the non-integer part of X.
None.
Program Example27;
{ 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.