100 ! calculate loan payments do input 'principal': p if p = 0 then exit do input 'interest percent': i if i = 0 then exit do else i = i / 1200 input 'months': m if m = 0 then exit do print 'monthly payment'; round ((i * p) / (1 - ((1 + i) ^ -m)), 2) loop