Одноклеточная амёба каждые 3 часа делится на 2 клетки. определить через сколько часов амёба станет больше 200. написать программу на языке pascal abc.

Var a,t:integer;
begin
t:=0; a:=1;
while a<200 do  begin
a:= a*2;
t:=t+3 ;
end;
write (t);
end.