Ксли я правельно понял то что ты просил, то вот, надеюсь прально =)
A#=Input("Input Cash:")
B#=Input("Input Beer Price:")
C#=Input("Input Bootle Price:")
Repeat
Botles#=Int(A/B)
SellBotles#=Botles*C
CashLeft#=(A-(Botles*B))+C
Print "CashLeft After First Cicle: "+CashLeft
WaitKey()
Until KeyHit(1)
End