PROGRAM TestCase2;

BEGIN
    i := 3;

    CASE i OF
        2: BEGIN even := i; prime := i END;
        -4, -2, 0, 4, 6, 8, 10, 12, 14: even := i;
        -5, -3, -1, 1, 3, 5, 
        7, 9, 11, 13, 15:  BEGIN
                               odd := i;
                               CASE i OF
                                   2, 3, 5, 7, 11, 13: prime := i
                               END
                           END
    END;
END.