задача с геометрической прогрессией Опции

[Bankir]

Помогите плз решить такую задачу в Паскале через проседуры
Условие:
По одной легенде шах предложил мудрецу любой подарок какой тот захочет. Мудрец сказал чтобы на первую кетку шахматной доски положили одно зерно, на 2 - 2 зерна, на 3 - 4 зерна, на 4 - 16 зёрен и.т.д. ( геометрическая прогрессия)
Составить программу, с помощью которой модно вычислить на какой клетке суммарное кол-во зёрен превысит N шт. ( на шахматной доске 64 клетки)

Заранее спасибо.

[volvo]

Вот тебе пример:

{$n+}
var
  n, count, sum: comp;
  i: byte;

begin
  Write('n = '); readln(n);
  i := 1; count := 1; sum := 1;
  while sum < n do begin
    count := count*2;
    sum := sum + count;
    inc(i)
  end;
  writeln('На клетке №', i)
end.

Это будет работать почти всегда...