MODULE Test9;

VAR
  i : INTEGER;
  f : REAL;
  d : LONGREAL;
  x : SET;

BEGIN
  i := i + 1;
  i := 5 DIV 3;
  f := 5 / 3;
  d := 5 / 3.0;
  d := 5 / 3.0D0;
  x := { 0..4 };
END Test9.

Проверка типов в операциях.