Ответ: var    amoebas, t: integer;begin    amoebas := 1;     t := 0;        repeat        t := t + 3;        amoebas := amoebas * 2;             Writeln(amoebas, ‘ амеб через ‘, t, ‘ часа’);       until t >= 24;end.