ПОМОГИТЕ! ДАМ 99 БАЛОВ!
Дядюшка подарил Билли 1 доллар в его первый день рождения, а экономный Билл сложил его подарок в банку. Каждый последующий год дядя удваивал свой предыдущий подарок и прибовлял к нему столько долларов, сколько лет исполнилось Биллу, а тот в свою очередь продолжал складывать баксы в банку.
Напишите программу, которая определит, на какой N-й день рождения в банке будет не менее чем S долларов?
РЕШИТЬ В ПАСКАЛЕ:)

var bank,S, N, cur : integer;Label a;begin readln(S);bank := 1;N := 1;cur := 1;a:if bank < S thenbegincur := cur*2;bank := bank + cur;N := N + 1;goto a;end;writeln(N);end.