ДАЮ 100 БАЛЛОВ ЗА ЗАДАЧУ
Писать на языке Pascal.

Известно, что изобретатель шахмат попросил у шаха такое вознаграждение за свое изобретение: за первую клеточку шахматной доски дать одно пшеничное зерно, а за каждую последующую – вдвое больше, чем за предыдущую. Такая цена показалась шаху смехотворной, однако всех зерновых запасов его кладовых оказалось недоста-точно для того, чтобы расплатиться с изобретателем. Составить программу для опре-деления, сколько клеток может «оплатить» шах, имея Q зерен.