Test10.obn

   1 MODULE Test10;
   2
   3 IMPORT Out;
   4
   5 BEGIN
   6   IF "abc" = "abc" THEN
   7     Out.String("Equal abc = abc"); Out.Ln;
   8   ELSE
   9     Out.String("WAT: MUST BE abc = abc"); Out.Ln;
  10     HALT(1);
  11   END;
  12
  13   IF "cba" > "abc" THEN
  14     Out.String("Great cba > abc"); Out.Ln;
  15   ELSE
  16     Out.String("WAT: MUST BE cba = abc"); Out.Ln;
  17     HALT(1);
  18   END;
  19
  20   IF "abc" < "bc" THEN
  21     Out.String("Less abc < bc"); Out.Ln;
  22   ELSE
  23     Out.String("WAT: MUST BE abc < bc"); Out.Ln;
  24     HALT(1);
  25   END;
  26 END Test10.
  27
  28 Проверка строк.