MODULE Test8;

VAR
  s : SHORTINT;
  i : INTEGER;
  j : LONGINT;
  f : REAL;
  d : LONGREAL;

BEGIN
  s := 127;
  s := s;
  i := s;
  i := i;
  j := i;
  j := j;
  f := j;
  f := f;
  d := f;
  d := d;
END Test8.

Проверка поглощения типов.
LONGREAL >= REAL >= LONGINT >= INTEGER >= SHORTINT