Запас рыбы в пруду оценен в 1000 тонн. Ежегодный прирост рыбы состав­ляет 13%. Ежегодный план отлова — 180 тонн. Наименьший запас рыбы, ниже которого запас уже не восстанавливается, — 250 тонн. Постройте таб­лицу, рассчитывающую количество рыбы в пруду на 20 лет. Пометьте, начи­ная с какого момента невозможно выполнить заданный план отлова. Помогите решить на Pascal

const  percent = 13.0;  limit = 250.0;  plan = 180.0;  perv_zapas = 1000.0;var  year: integer;  zapas, ulov: real;begin  Writeln('Год Запас рыбы,т. Улов,т');  zapas := perv_zapas;  for year := 1 to 20 do  begin    zapas := zapas * (1 + percent / 100);    if zapas - plan < 250 then ulov := zapas - 250    else ulov := plan;    zapas := zapas - ulov;    if ulov >= plan then Writeln(year:2, zapas:10:1, ulov:12:1)    else Writeln(year:2, zapas:10:1, ulov:12:1, ' - меньше плана')  endend.Результат выполнения программы:Год Запас рыбы,т. Улов,т 1     950.0       180.0 2     893.5       180.0 3     829.7       180.0 4     757.5       180.0 5     676.0       180.0 6     583.9       180.0 7     479.8       180.0 8     362.1       180.0 9     250.0       159.2 - меньше плана10     250.0        32.5 - меньше плана11     250.0        32.5 - меньше плана12     250.0        32.5 - меньше плана13     250.0        32.5 - меньше плана14     250.0        32.5 - меньше плана15     250.0        32.5 - меньше плана16     250.0        32.5 - меньше плана17     250.0        32.5 - меньше плана18     250.0        32.5 - меньше плана19     250.0        32.5 - меньше плана20     250.0        32.5 - меньше плана