Нужно записать программу в Паскаль с массивов очень нужно!!

номер 4, так как две собаки в этой части не допущены.

var h,a: integer;

begin

  a: =1;

  repeat

      h: = h+3;

      a: =2*a;

      writeln('прошло часов - ',h,', амеб - ',a)

  until h> =30;

  readln;

end.

var x: real; begin  read(x);   writeln(round(x)); end.

набрать 8л

два раза отлить 3, будет 8-3-3=2л

перелить 2л из 8 в 3

набрать 8

долить из 8 в 3 1л, так чтоб он стал полным. 8-1=7л