Баксы в банке Free Pascal

Папа Карло подарил Буратино 1 доллар в его первый день рождения, а экономный Буратино сложил подарок в банку. Каждый последующий год папа Карло удваивал свой предыдущий подарок и прибавлял к нему столько долларов, сколько лет исполнилось Буратино, а тот в свою очередь продолжал складывать баксы в банку. На какой N-й день рождения в банке будет не менее чем S долларов?

Технические условия

Входные данные

   Единственное число - значение S. 1 ≤ S ≤ 240.

Выходные данные

   Искомое значение N.

ВНИМАНИЕ: Используются  файлы для ввода/вывода

Var
f1:text;
s,b,n,r:int64;
Begin
assign(f1,'input.txt'); reset(f1); read(f1,s); close(f1);
b:=1; n:=1; r:=1;
if s<>1 then
repeat
 inc(r); b:=b*2+r; n:=n+b
until n>=s;
assign(f1,'output.txt'); rewrite(f1);
writeln(f1,r); close(f1)
End.