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

Var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
writeln('План можно выдерживать', i, ' лет' );
end.