Есть ENTIER. Она отбрасывает дробную часть.
## Код:
```
PROCEDURE Do*;
      VAR  long : LONGINT; r : REAL;
   BEGIN
      r := 114.23432;
      long := ENTIER(r);
      Log.Real(r);
      Log.Int(long);
   END Do;
```
