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

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