Через сколько лет долг превысит заданную сумму? - PascalABC.NET

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

Напишите программу, которая определяет через сколько лет долг бизнесмена превысит s тысяч рублей, если известно, что он взял ссуду m тысяч рублей в банке под 20% годовых. Заранее спасибо.

Решение задачи: «Через сколько лет долг превысит заданную сумму?»

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

begin
  var m := ReadLnReal('Сколько взял: m=');
  var p := ReadLnReal('Под какой процент: p=');
  var s := ReadLnReal('Какой потолок: s=');
  var y := 0;
  while m <= s do
    begin
      y += 1;
      m *= 1+p/100;
    end;
  WriteLn('Долг будет превышен через лет: ', y);
end.

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

Ввод данных:
- m (сколько взял)
- p (под какой процент)
- s (какой потолок)
Инициализация переменной y (количество лет) значением 0.
Цикл while, выполняющийся до тех пор, пока m не станет больше s:
- y увеличивается на 1.
- m умножается на (1 + p/100) (то есть увеличивается на процент).
После выхода из цикла, выводится количество лет, через которое долг превысит заданную сумму.