Система аутентификации при первом ошибочном наборе пароля формирует задержку в 1 секунду перед разрешением следующей попытки. После второй ошибки задержка составит 2 секунды, после третьей — 4 секунды, после четвертой — 7 секунд и т. д.

Какое наибольшее число неверных паролей пользователь сможет ввести за 8-часовой рабочий день (время ввода пароля не учитывается)?

Помогите быстрее пожалуйста. Час остался 

var i,sum,b1,b2:integer;begin b1:=1; sum:=1; while sum<28800 do begin inc(i); b2:=b1+i; inc(sum,b2); b1:=b2; end; writeln(i+1);end.

Не понимаю, почему в комментариях код отображается нормально, а в ответе нет. Так надоело уже :/

Формула вот такая:Ответ: 56var  i,sum,b1,b2:integer;begin  b1:=1;  sum:=1;  while sum<28800 do  begin    inc(i);     b2:=b1+i; {При первом выполнении цикла b2 равно значению второго элемента, поэтому выводится i+1}    inc(sum,b2);    b1:=b2;  end;  writeln(i+1);end.