OpenConsole()
Dim table.i(32, 2)
dividend.i = 580
divisor.i = 34

i.i = 1
table(i, 1) = 1
table(i, 2) = divisor

While table(i, 2) < dividend
  i + 1
  table(i, 1) = table(i -1, 1) * 2
  table(i, 2) = table(i -1, 2) * 2
Wend
i - 1
answer = table(i, 1)
accumulator = table(i, 2)

While i > 1
  i - 1
  If table(i, 2)+ accumulator <= dividend:
    answer = answer + table(i, 1)
    accumulator = accumulator + table(i, 2)
  EndIf
Wend

Print(Str(dividend) + " divided by " + Str(divisor) + " using Egytian division")
PrintN(" returns " + Str(answer) + " mod(ulus) " + Str(dividend-accumulator))
Input()
CloseConsole()