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

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var Прирост := 1 + ReadReal('Введите х в процентах:') / 100;

 var (Запас, Отлов, Порог) := ReadReal3('Введите A, B, C в тоннах:');

 var Лет := 0;

 while Запас >= Порог do

 begin

   Запас := Запас * Прирост - Отлов;

   Inc(Лет);

   if Лет > 1000 then

   begin

     Println('И на тысячу лет хватит!');

     Exit

   end

 end;

 Println(Лет - 1)

end.

Введите х в процентах: 12.5Введите A, B, C в тоннах: 300 90 753