Program qq;
var a,b,c: real;
var i:integer;
begin
writeln('Введите запас рыбы, план отлова, наименьший запас рыбы ');
readln(a,b,c);
while(a > c) do
a:= a * 1.15;
a:= a - b;
inc(i);
end;
write('План выдержал ',i, ' лет');
end.
