(*amount=5000;interestrate=0.02;*)
amount=Input[" please input the initial amount you want to borrow"];
interestrate=Input["provide the interest rate, in ratio "];
Do[interest=amount*interestrate;
amount=amount+interest;
Print["This is the ",n,"week.The amount I owe a long is ",amount];,{n,1,20,1}];