Test13.obn

   1 MODULE Test13;
   2
   3 VAR
   4   ch, cap, res : CHAR;
   5
   6 BEGIN
   7   ch := "a";
   8   cap := "A";
   9   res := CAP(ch);
  10   ASSERT(res = cap);
  11 END Test13.
  12
  13 Проверка функции CAP