Одноклеточная амеба каждые 3 часа делится на две клетки. Вывести на экран количество амеб за каждые 3 часа суток

[KriSSka]

Одноклеточная амеба каждые 3 часа делится на две клетки. Вывести на экран количество амеб за каждые 3 часа суток, а также общее количество амеб за двое суток.
желательно с циклом while

[BDA]

uses
  CRT;

var
  s, sa: longint;
  hour: byte;

begin
  s := 1;
  sa := s;
  writeln('0 hour: ', s);
  hour := 3;
  while (hour <= 48) do
  begin
    s := s * 2;
    writeln(hour, ' hour: ', s, ' (+', s - sa, ')');
    sa := s;
    hour := hour + 3;
  end;
  writeln;
  writeln('ALL: ', s);
  readln;
end.