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

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

  • Program pr;
    readln(proc);
    write(‘Введите сумму вклада: ‘);
    readln(vklad);
    end.