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.