мальчик решил почистить аквариум. начал с переселения рыб в банку. семейство рыб составляла 30 штук. первую рыбку он поймал за 5 секунд и 2 секунды потратил на переклатывание. но чем меньше становлось рыбок, тем труднее их было поймать. на каждую следующую рыбку он тратил на 5% времени больше, чем на предыдущую. постройте модель переселения рыбок

var a:array [1..30] of integer;

i:integer;

BEGIN

  for i := 1 to 30 do

  begin

     a[i]:= 5+5*0.05*(i-1)+2;

     writeln(a[i]);

  end.

END.