Вычислить прирост населения(задача практически решена) - Pascal

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

Прежде всего заранее спасибо за помощь. Условие задачи. Население страны составляет M млн. чел. Прогнозируется ежегодная рождаемость p% от численности населения и смертность q%.Вычислить ежегодный прирост населения в течение ближайших N лет. Код программы

 var M,p,q,R:real;N,i:integer;
Writeln('Input M,p,q,N);
Readln(M,p,q,N);
R:=M;
for i:=1 to N do
begin
R:=R+R*(p-q)/100;
Writeln(i,'      ',R:5:2);
end;
 readln
end.

Знаю задача очень легкая(для вас),но я не смог её решить до конца. Возникла проблема с нахождением прироста населения(надо что бы программа выдавала только прирост ,а не численность)

Решение задачи: «Вычислить прирост населения(задача практически решена)»

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

var M,p,q,R:real;N,i:integer;
Writeln('Input M,p,q,N');
Readln(M,p,q,N);
R:=M;
for i:=1 to N do
begin 
writeln(R*(p-q)/100:5:2);
R:=R+R*(p-q)/100;
end;
readln
end.

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

В начале кода объявляются переменные M, p, q, R типа real и переменная N типа integer.
Затем выводится сообщение Input M,p,q,N для ввода значений переменных M, p, q, N.
С помощью функции Readln считываются значения переменных M, p, q, N.
Значение переменной R присваивается значению переменной M.
В цикле for происходит вычисление прироста населения.
- В строке 10 вычисляется значение выражения R*(p-q)/100 и записывается в переменную W с типом real.
- В строке 11 значение переменной W записывается в переменную R с помощью оператора присваивания.
- В строке 12 происходит увеличение значения переменной R на значение переменной W.
После окончания цикла выводится сообщение readln.
Конец программы.