MODULE Test2; IMPORT Out; CONST dec1 = 1991; hex1 = 0DH; (* = 13 *) hex2 = 0123H; (* = 291 *) real1 = 12.3; real2 = 4.567E8; real3 = 4.567E+8; real4 = 4.567E-8; long1 = 0.57712566; long2 = 0.57712566D6; long3 = 0.57712566D+6; long4 = 0.57712566D-6; char1 = 042X; (* = "B" *) char2 = 03FX; (* = "?" *) str1 = 'Oberon-2'; str2 = "Don't worry!"; charvsstr1 = 'A'; charvsstr2 = "Z"; BEGIN Out.Open; Out.String("dec1 = "); Out.Int(dec1, 0); Out.Ln; Out.String("hex1 = "); Out.Int(hex1, 0); Out.Ln; Out.String("hex2 = "); Out.Int(hex2, 0); Out.Ln; Out.String("real1 = "); Out.Real(real1, 0); Out.Ln; Out.String("real2 = "); Out.Real(real2, 0); Out.Ln; Out.String("real3 = "); Out.Real(real3, 0); Out.Ln; Out.String("real4 = "); Out.Real(real4, 0); Out.Ln; Out.String("long1 = "); Out.LongReal(long1, 0); Out.Ln; Out.String("long2 = "); Out.LongReal(long2, 0); Out.Ln; Out.String("long3 = "); Out.LongReal(long3, 0); Out.Ln; Out.String("long4 = "); Out.LongReal(long4, 0); Out.Ln; Out.String("char1 = "); Out.Char(char1); Out.Ln; Out.String("char2 = "); Out.Char(char2); Out.Ln; Out.String("str1 = "); Out.String(str1); Out.Ln; Out.String("str2 = "); Out.String(str2); Out.Ln; Out.String("charvsstr1 (string) = "); Out.String(charvsstr1); Out.Ln; Out.String("charvsstr2 (string) = "); Out.String(charvsstr2); Out.Ln; Out.String("charvsstr1 (char) = "); Out.Char(charvsstr1); Out.Ln; Out.String("charvsstr2 (char) = "); Out.Char(charvsstr2); Out.Ln; END Test2. Проверка констант. Всё должно компилироваться и работать.