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

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программка не работает, обновите версию!

begin

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

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

 var Лет := 0;

 while Припас gt;= Порог do

 begin

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

   Inc(Лет);

   if Лет gt; 1000 then

   begin

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

     Exit

   end

 end;

 Println(Лет - 1)

end.

Введите х в процентах: 12.5

Введите A, B, C в тоннах: 300 90 75

3