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

program zz1;

var a, b, c:real; / / вводим переменные целого типа

i:integer;

begin

write (' введите число особей '); / / вводим с клавиатуры первое число

read (A);

write (' введите число отлова'); / / вводим с клавиатуры второе число

read (B);

write (' введите критический уровень '); / / вводим с клавиатуры третье число

read (C);

while a>c do / / организуем цикл, пока не наступил критический уровень

begin

a:=a + a * 15/100;

a:=a - b;

i:=i + 1;

end;

/ / выводим ответ

write (' отлов надо прекратить через ', i, ' лет ');

end.