Ответ:

Program qq;

var a,b,c: real;

var i:integer;

begin

 writeln('Введите запас рыбы, план отлова, наименьший запас рыбы ');

readln(a,b,c);

while(a > c) do

 begin

   a:= a * 1.15;

   a:= a - b;

   inc(i);

 end;

 write('План выдержал ',i, ' лет');

end.