Клиент положил в банк 1 марта 1000 рублей. ежемесячно вклад увеличивается на 2%. а) сколько денег будет через 6 месяцев. б) в каком месяце сумма вклада превысит 1200. в) за какой месяц величина ежемесячного увеличения превысит 50 рублей. решить на paskalabc

Program pr; Var i,proc,month:integer;vklad,bonus,total:real; begin write('Введите сумму вклада: '); readln(vklad); write('Процент увеличения вклада: '); readln(proc); write('Кол-во месяцев '); readln(month); total:=vklad; for i:=1 to month do begin writeln('Месяц ',i); bonus:=total/100*proc; writeln('Бонус за месяц: ',bonus:0:2); total:=total+bonus; writeln('Текущий счет: ',total:0:2); writeln(); end; end.