Паскаль2

[VasekHacker]

Одного человека приглашали руководить департаментом. В первый день к нему отправили 1000 людей а каждого следуйщего в два раза больше, чем передущего. Етот человек согласился тогда, когда к нему зразу прибыло не меньше 30000 людей. Узнать в какой день ето случилось, не пользуясь умножением и делением.
Помогите. Зделать надо на паскале или на делфи 6-7.

[Mad_Cat]

i:=1;
k:=1000;
while k<=30000 do
begin
i:=i+1;
k:=k+k;
end;
write(i);

[VasekHacker]

Сообщение от Mad_Cat

i:=1;
k:=1000;
while k<=30000 do
begin
i:=i+1;
k:=k+k;
end;
write(i);

можно полностью код?..