FUNCTION pancake(n)
    LET gap = 2
    LET sum = 2
    LET adj = -1
    DO while sum < n
       LET adj = adj+1
       LET gap = (gap*2)-1
       LET sum = sum+gap
    LOOP
    LET pancake = n+adj
END FUNCTION

FOR i = 0 to 3
    FOR j = 1 to 5
        LET n = (i*5)+j
        LET c = c+1
        PRINT  using "p(##) = ##  ": n, pancake(n);
        IF remainder(round(c),5) = 0 then PRINT
    NEXT j
NEXT i
END