Ивана Александровича Хлестакова пригласили управлять департаментом. В 1-й день ему прислали 1000 курьеров, а в каждый последующий – в 2 раза больше, чем в предыду¬щий. Иван Александрович согласился тогда, когда к нему прибыли сразу не менее 30000 курьеров. Вывести на экран сообщение о том, на какой день это произошло. Определить, не пользуясь умножением и делением: Иван Александрович с ними не в ладах. (10 баллов) Формат вывода данных: Это произошло на …-й день.

var k,n:integer;begink:=1000; n:=1;while k<30000 do begin k:=k+k; n:=n+1; end;writeln('Это произошло на ',n,'-й день');end.Результат:Это произошло на 6-й день