Вам что- то очень сложно задают для 1-4 класса. Извини, я не могу помочь.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function F(n: integer):int64 :=
n <= 1 ? 1 : 2.To(n).Aggregate(int64(1), (p, q)-> p * q);
begin
Range(1, ReadInteger('n=')).Select(t -> F(t)).Sum.Println
end.
<h2>n= 10</h2><h2>4037913 </h2>
5, 4, 2, 3, 1, 6. Складывай всё что в квадратных скобках и умножай на кол-во повторов. Вперед это знак +, назад это -
Англичане, американцы, французы, итальянцы называют @ «улиткой». Африканцы, голландцы, поляки, немцы предпочитают называть его «обезьяньим хвостом». Датчане могут сказать «слоновий хобот», норвежцы «свиной хвост», китайцы – «мышонком», а венгры – «червяком».