MODULE Test11;

IMPORT Out;

CONST
  im1 = -1;
  bol = ~FALSE;
  set = { 1, 2, 3..6 };
  fm1 = -1.0;
  dm1 = -1.0D0;
  inf = 4 IN set;
  rel = 10 = 100;
  pi = 4 / 1 - 4 / 3 + 4 / 5 - 4 / 7 + 4 / 9 - 4 / 11 + 4 / 13 - 4 / 15 + 4 / 17 - 4 / 19 + 4 / 21;

BEGIN
  Out.Open;

  Out.Int(im1, 0); Out.Ln;
  Out.Real(fm1, 0); Out.Ln;
  Out.LongReal(dm1, 0); Out.Ln;

  Out.Real(pi, 0); Out.Ln;

  ASSERT(5 IN set);
  ASSERT(bol);
END Test11.

Проверка свёртки констант.