KirAl_1

DIM B AS INTEGER, R AS INTEGER, E AS INTEGER, C AS INTEGER
DO
    INPUT "R: ", R
LOOP UNTIL R >= 1 AND R <= 30000
DO
    INPUT "B: ", B
LOOP UNTIL B >= 2 AND B <= 30000
DO
    INPUT "E: ", E
LOOP UNTIL E >= 1 AND E < B
DO UNTIL R - B + E <= 0
    R = R - B + E
    C = C + 1
LOOP
PRINT "Able to drink:"; C