1амёба в минуту делиться на две части. через сколько минут будет 200 амёб. напишите программу

Program aga_1;
var k,t : integer;
begin
k:=200;
while k>0
begin
k:= k/2;
t:=t+1;
end
end.