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(1, case);
            outreal(1, i);
            outreal(1, 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(1, case)
end