Untitled

WORD 16


VAR a b c i

PROC MAIN
    a := 0
    b := 20
    c := 10
    i := 0

    FOR i TO 101

        IF (i > 5) AND (i < 40) 
            IF i <= 60
                a := a + 1
                IF i != 30 
                    a := a + 1
                ELSE 
                    a := a + 0
                END IF
            ELSE 
                a := a + 2
            END IF
        ELSE 
            a := a + 1
        END IF

        IF (i >= 15) AND (i <= 85) 
            IF i > 25
                b := b + 1
                IF i != 50 
                    b := b + 2
                ELSE 
                    b := b + 0
                END IF
            ELSE 
                b := b + 1
            END IF
        ELSE 
            b := b + 1
        END IF

        IF (i < 25) OR (i > 75) 
            IF i != 45
                c := c + 1
                IF i >= 90 
                    c := c + 2
                ELSE 
                    c := c + 1
                END IF
            ELSE 
                c := c + 3
            END IF
        ELSE 
            c := c + 1
        END IF

    END FOR


END PROC