Составить программу на языке паскаль Любым циклом:

var
num,t:integer;
begin
num := 1; // количество амёб
t := 0; // время
while t <> 24 do begin
inc(t,3);
num := num *2;
writeln('Через ',t,' часа будет ',num,' амёб. ');
end;
end.