tests/Test28.obn

   1 MODULE Test28;
   2
   3 IMPORT Out;
   4
   5 TYPE
   6   Name = ARRAY 16 OF CHAR;
   7
   8 VAR
   9   key : ARRAY 128 OF Name;
  10   name : Name;
  11
  12 BEGIN
  13   IF key[0] > name THEN Out.Ln; END;
  14 END Test28.
  15
  16 Тест сравнения массивов символов.