Трудолюбивый муравей начал работать на строительстве муравейника. В первый день своей работы ему удалось найти и принести только 2 хвоинки, во второй в два раза больше, чем в первый и ещё одну хвоинку. Каждый новый день он приносил в два раза больше, чем в предыдущий и ещё одну хвоинку. Сколько принёс муравей за н день работы и сколько всего за н дней.
(решить в паскале)

Ой... про систему образования на Западе лучше вообще не говорить. Она же там приспособлена под запросы того общества.

А чем отличаются запросы наших обществ в программировании?

Сразу видно, что Вы далеки от издательских дел. Сначала тираж надо подготовить, получить рецензию, сделать всю допечатную подготовку, отпечатать и раздать по магазинам., убедив их взять книгу никому неизвестного автора. Это все - исключительно за собственные деньги. А потом читать про свою книгу в журналах по образованию заказные статьи оплаченных критиков.

Тем, что у нас программирование сейчас практически мало кому нужно. Потребность в новых программах - черта общества с быстро развивающейся экономикой. А мы сидим в кризисе застоя.

Давайте заканчивать, это уже спам пошел. Переходите в личку, если хотите что-то обсудить.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('n=');  var k,s:BigInteger;  (k,s):=(2,2); // две травинки и всего две  for var d:=2 to n do begin k:=2*k+1; s+=k end;  Writeln('В день ',n,' принесено травинок: ',k,', всего: ',s) end.Примерыn= 5В день 5 принесено травинок: 47, всего: 88n= 30В день 30 принесено травинок: 1610612735, всего: 3221225439n= 365В день 365 принесено травинок: 112730043973143994938695068645888177314032762347599353793949966633546033205501205286257551922468897745532878847, всего: 225460087946287989877390137291776354628065524695198707587899933267092066411002410572515103844937795491065757328