Определить предполагаемый доход предприятия во 2,3 .... 2N-й годы его существования - Pascal ABC

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

Доход предприятия в первый год его существования составил D млн рублей По прогнозу его доход будет расти N лет на В млн рублей ежегодно а затем ежегодно уменьшаться на р % Определить предполагаемый доход предприятия во 2,3 .... 2N-й годы его существования

Решение задачи: «Определить предполагаемый доход предприятия во 2,3 .... 2N-й годы его существования»

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

var n,i:integer;
    d,b,p:real;
begin
write('n=');
readln(n);
write('d=');
readln(d);
write('b=');
readln(b);
write('p=');
readln(p);
writeln('Доход предприятия во 2-',2*n,' годы');
for i:=1 to n do
 begin
  d:=d+b;
  writeln(i,' = ',d:0:2);
 end;
for i:=n+1 to 2*n do
 begin
  d:=d*(1-p/100);
  writeln(i,' = ',d:0:2);
 end;
end.

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

В первой части кода считываются данные с помощью функции readln: переменная n содержит число, которое будет использоваться в дальнейшем для вычисления дохода предприятия, переменные d, b и p содержат данные, которые также будут использоваться для вычисления дохода.
Во второй части кода используется цикл for, который выполняется от 1 до n. На каждой итерации переменная d увеличивается на значение переменной b.
После выполнения цикла for, начинается следующий цикл for, который выполняется от n+1 до 2*n. На каждой итерации переменная d умножается на (1-p/100), где p - это доля, которую предприятие теряет каждый год.
После выполнения второго цикла for, выводится сообщение о доходе предприятия во 2-м, 3-м и т.д. годах его существования.