Определить прирост суммы вклада - Pascal ABC

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

2. Гражданин 1 июля открыл счет в банке, вложив S руб. Через каждый месяц размер вклада увеличивается на N% от имеющейся суммы. Определить прирост суммы вклада за 1,2,...,10 месяц.

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

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

program pr;       // Здесь сколько прирастает с каждым месяцем 
var
   i: integer;
  n,s,q: real;
begin
  writeln('Введите сумму вклада');
  readln(s);
  writeln('Процент увеличения вклада');
  readln(n);
  i := 1;
  q:=s;
  repeat
    q:= q + (q * (n / 100));
    writeln('Прирост за ', i, ' месяц: ', q-s);
    i := i + 1;
  until i > 10;
end.

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

В программе объявлены три переменные: i, n и s.
Пользователю предлагается ввести сумму вклада и процент увеличения вклада.
Значение переменной i устанавливается равным 1, а переменная q инициализируется значением суммы вклада (s).
Переменная n используется для хранения процента увеличения вклада, введенного пользователем.
Цикл repeat используется для моделирования ежемесячного прироста вклада.
Внутри цикла переменная q обновляется, добавляя к ней сумму вклада (s), увеличенную на процент увеличения вклада (n/100).
После каждого месяца прирост за предыдущий месяц вычитается из текущего прироста.
Цикл повторяется до тех пор, пока значение переменной i не превысит 10.