Увеличить на 5 элементы массива кратные 3

253(8)=10101011(2)

2в4(16)=1010110100(2)

48(16)=1001000(2)

var a: array[1..15] of char;

i,min,max: integer;

begin

  min=1;

  max=1;

  for i: = 1 to 15 do begin

      a[i]: = chr(random(256));

      if a[min]> a[i] then min: =i;

      if a[max]< a[i] then max: =i;

  end;

  writeln(a[min], a[max]);

end.

1.папа перевозит одного из детей     возрашается обратно

2.папа перевозит 2 ребенка               возрашается обратно

3.перевозит маму                               и они выходят на другой берег 

program amoeba;   var i,count: integer;   begin  i: =3; //количество часов  count: =1; //количество амеб  while i < = 24 do  begin  count: =count*2; //каждые 3 часа количество амеб удваивается  writeln(i,' hours: ',count); //выводим кол-во часов и амеб  i: =i+3;   end;   readln;   end.