Определить, через сколько месяцев размер вклада превысит 1100 рублей - Pascal ABC

Формулировка задачи:

Начальный вклад в банке равен 1000 рублей. Через месяц размер вклада увеличивается на Р процентов от имеющейся суммы (Р – вещественное число, 0<P<25). По данному Р определить, через сколько месяцев размер вклада превысит 1100 рублей, и вывести найденное количество месяцев К (целое число) и итоговый размер вклада S (вещественное число). если можно с объяснением

Решение задачи: «Определить, через сколько месяцев размер вклада превысит 1100 рублей»

Листинг программы

var v,p:real;
    k:integer;
begin
v:=1000;
repeat
write('Введите процент 0<P<25 p= ');
readln(p);
until (p>0)and(p<25);
k:=0;
while v<=1100 do
 begin
  v:=v*(1+p/100);
  writeln(v:0:2);
  k:=k+1;
 end;
write('Число месяцев=',k,' размер вклада=',v:0:2);
end.

Объяснение кода листинга программы

Создаются переменные v, p и k типа real и integer соответственно.
Вводится начальное значение переменной v равное 1000.
Запускается цикл repeat-until, в котором пользователю предлагается ввести процент от 0 до 25.
Проверяется, что введенный процент находится в указанном диапазоне.
Инициализируется переменная k значением 0.
Запускается цикл while, в котором значение переменной v увеличивается на (v*(1+p/100)) до тех пор, пока оно не превысит 1100.
После каждого увеличения значения переменной v выводится ее текущее значение с точностью до двух знаков после запятой.
После завершения цикла while выводится общее количество месяцев, которое потребовалось для достижения размера вклада равного 1100 рублей.
Выводится сообщение, содержащее количество месяцев и размер вклада.