Dim As Integer num_pancakes = 20
Dim As Integer i, j, c = 0, n

Function pancake(n As Integer) As Integer
    Dim As Integer gap = 2, sum = 2, adj = -1
    While sum < n
        adj += 1
        gap = (gap * 2) - 1
        sum += gap
    Wend
    Return n + adj
End Function

For i = 0 To 3
    For j = 1 To 5
        n = (i * 5) + j
        c += 1
        Print Using "p(##) = ##  "; n; pancake(n);
        If c Mod 5 = 0 Then Print
    Next j
Next i

Sleep