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

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

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

var d,b,p,q:real;
    n,i:integer;
begin
write('Доход в первый год d=');
readln(d);
write('Половина периода n=');
readln(n);
write('Увеличение дохода в первый год b=');
readln(b);
write('Снижение увеличения дохода в первые годы в процентах q=');
readln(q);
repeat
write('Уменьшение дохода во второй половине срока в процентах p<>q p=');
readln(p);
until p<>q;
for i:=2 to n do
 begin
  b:=b*(1-q/100);
  d:=d+b;
  writeln(i,' год d=',d:0:2);
 end;
for i:=n+1 to 2*n do
 begin
  d:=d*(1-p/100);
  writeln(i,' год d=',d:0:2);
 end;
end.