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.