Задача, паскаль АВС в искусственный водоем запустили 100 000 рыб. ежегодно из водоема забирают 12% рыб. естественный прирост сост. 20%. какое количество рыб будет в водоеме через 8 лет? через сколько лет в водоеме будет 300 000 рыб, если начиная с пятого года из водоема стали ежегодно забирать ещё 5000 рыб?

Это с интернета списано,мне нужно другое решение.

Держи)program zad1; var i:integer; a:real; begin a:=100000; for i:=1 to 40 do begin if i<5 then begin a:=a*1.2; a:=a*0.88; writeln(i,' год ',a:0:0); end else begin a:=a*1.2; a:=a*0.88; a:=a-5000; writeln(i,' год ',a:0:0); end; end; end.