begin
   comment LIBRARY 1;
   integer
     I,
     J,
     K,
     CASE;
   procedure EQUAL(I, J);
      value
        I,
        J;
      integer
        I,
        J;
      if I ≠ J then
      begin
         OUTREAL(99, CASE);
         OUTREAL(99, I);
         OUTREAL(99, J)
      end
      else
        CASE ≔ CASE + 1;
   I ≔ 2;
   J ≔ 5;
   K ≔ 9;
   CASE ≔ 0;
   EQUAL(I + J + K, 16);
   EQUAL(I + J - K, - 2);
   EQUAL(I + J × K, 47);
   EQUAL(I + J ÷ K, 2);
   EQUAL(I + J⭡K, 1953127);
   EQUAL(I - J + K, 6);
   EQUAL(I - J - K, - 12);
   EQUAL(I - J × K, - 43);
   EQUAL(I - J ÷ K, 2);
   EQUAL(I - J⭡K, -1953123);
   EQUAL(I × J + K, 19);
   EQUAL(I × J - K, 1);
   EQUAL(I × J × K, 90);
   EQUAL(I × J ÷ K, 1);
   EQUAL(I × J⭡2, 50);
   EQUAL(J ÷ I + K, 11);
   EQUAL(J ÷ I - K, - 7);
   EQUAL(J ÷ I × K, 18);
   EQUAL(J ÷ I ÷ K, 0);
   EQUAL(J ÷ I⭡K, 0);
   EQUAL(I⭡J + K, 41);
   EQUAL(I⭡J - K, 23);
   EQUAL(I⭡J × K, 288);
   EQUAL(I⭡J ÷ K, 3);
   EQUAL(I⭡J⭡2, 1024);
   OUTREAL(99, CASE)
end