Нужно полностью решение в паскале.
Задача: Начальный вклад в банке равен 1000 рублей. Через каждый месяц размер вклада увеличивается на 5%. Через сколько месяцев размер вклада превысит 1100 рублей?

var mes, sum: real;beginmes:=0;sum:=1000;while sum<1100 do beginsum:=sum+(sum*0.05);mes:=mes+1; end;writeln (mes:2:0);readln;end.Программа работает корректно. Выводит 2