Запас рыбы в озере оценивается в а особей. ежегодный прирост составляет 15%. ежегодный отлов - в особей. критической считается ситуация, когда особей становится меньше с. через сколько лет нужно прекратить отлов, чтобы ситуация не стала критической?

Var a,b,c,d,k:integer;
beginwrite('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
d:=a;
k:=0;
while d>=c do
 begin 
 k:=k+1;
 d:=round(1.15*d-b);
 end;
writeln('k = ',k-1);
end.

Пример:
A = 1000
B = 200
C = 100
k = 9