PROGRAM TestCase1;

BEGIN
    i := 3;

    CASE i+1 OF
        1:       j := i;
        -8:      j := 8*i;
        5, 7, 4: j := 574*i;
    END;
END.
