Test8.obn

   1 MODULE Test8;
   2
   3 VAR
   4   s : SHORTINT;
   5   i : INTEGER;
   6   j : LONGINT;
   7   f : REAL;
   8   d : LONGREAL;
   9
  10 BEGIN
  11   s := 127;
  12   s := s;
  13   i := s;
  14   i := i;
  15   j := i;
  16   j := j;
  17   f := j;
  18   f := f;
  19   d := f;
  20   d := d;
  21 END Test8.
  22
  23 Проверка поглощения типов.
  24 LONGREAL >= REAL >= LONGINT >= INTEGER >= SHORTINT