TP3/shell/tests/fixtures/t133_roundtrunc.pas

program rnd;
var R : real;
    I : integer;
begin
  R := 124.678;
  I := Trunc(R);
  writeln(I);
  I := Round(R);
  writeln(I)
end.