program T10;
var
  i : real;
  j : integer;
begin
   i := Pi;

   writeln('Pi       = ',Pi);
   writeln('Round(i) = ',Round(i):4);
   writeln('Trunc(i) = ',Trunc(i):4);
   writeln('Frac(i)  = ',frac(i));

   J := Trunc(i);
   writeln('Zahl     = ',j:4);
end.