Сколько месяцев может прожить студент, используя только накопления и стипендию - Pascal

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

Ребят помогите! Решить задачки!!! У студента имеются накопления S рублей. Ежемесячная стипендия составляет А рублей, а расходы на проживание превышают стипендию и составляют В рублей в месяц. Инфляция увеличивает расходы на 3% в месяц. Сколько месяцев может прожить студент, используя только накопления и стипендию. заранее спасибо!!!!!! надо до 21,01,13!!

Решение задачи: «Сколько месяцев может прожить студент, используя только накопления и стипендию»

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

 
 var 
  i:integer;
    a,s,b:double;
BEGIN 
writeln('vvedite nakopleniya');
readln(s);
writeln('vvedite stependiyu');
readln(a);
writeln('vvedite rashodi');
readln(b);
while s>0 do begin
s:=s+a-b;
b:=b*3/100+b;
inc(i);
end;
writeln('student projivet ',i,' meszca');
 
 
END.

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

Объявление переменных:
- i - целочисленная переменная для подсчета количества месяцев
- a, s, b - числовые переменные для хранения данных
Ввод данных:
- Ввод накоплений студента
- Ввод стипендии
- Ввод расходов
Основной цикл:
- Пока накопления больше нуля, выполняется следующий блок
- Накопления увеличиваются на сумму стипендии и уменьшаются на сумму расходов
- Расходы увеличиваются на 3% от текущей суммы
- Увеличивается счетчик месяцев
Вывод результата:
- Выводится количество месяцев, которое студент может прожить Примечание: В коде не используются строки, поэтому в списке выше они исключены.