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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.