помогите пожалуйста составить програму с использованием оператора цикла с предусловием...

Question

помогите пожалуйста составить програму с использованием оператора цикла с предусловием или постусловием .

одноклеточная амеба каждые 3 часа делится на 2 клетки. определить сколько амеб будет через 3,6,9,12,15,18,21,24 часов

Answer 1

var h,a:integer;

Begin

  a:=1;

  repeat

    h:= h+3;

    a:=2*a;

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

  until h>=30;

  readln;

End.