MODULE Test14;

VAR
  x : REAL;

BEGIN
  x := 3.6;
  ASSERT(ENTIER(x) = 3);
  ASSERT(ENTIER(3.6) = 3);
  x := 3.5;
  ASSERT(ENTIER(x) = 3);
  ASSERT(ENTIER(3.5) = 3);
  x := -3.6;
  ASSERT(ENTIER(x) = -4);
  ASSERT(ENTIER(-3.6) = -4);
  x := -3.5;
  ASSERT(ENTIER(x) = -4);
  ASSERT(ENTIER(-3.5) = -4);
END Test14.

Тест правильности ENTIER.