Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить сколько амеб будет через 2, 6, 9, 12, ..., 24 часа? Составить программу в паскале с помощью цикла repeat.

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