Составте программу в паскаль. ежегодный прирост рыбы в пруду состовляет x%.запасы рыбы оценены в а тонн. ежегодный план отлова в тонн наименьший запас рыбы ниже которого запас уже не востонавливается состовляет с тонн . составить алгоритм подсчитовавший сколько лет можно выдерживать заданный план.
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