MODULE Test;

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

BEGIN
  i := 5 DIV 3;
  f := 5 / 3;
  d := 5 / 3.0;
  d := 5 / 3.0D0;
END Test.