Каждая бактерия делится на две в течение одной минуты. в начальный момент имеется a бактерий. сколько времени потребуется, чтобы количество бактерий превзошло x? на паскале !

Var
i,x,a:integer;
begin
writeln('Кол-во бактерий');
readln(a);
writeln('Необходимое кол-во');
readln(x);
i:=0;
while a<x do
begin
a:=a*a;
i:=i+1;
end;
writeln('Требуется ',i,' минут');
end.