Помогите, пожалуйста, написать программку в Паскале. Напишите программку вычисления выражения:

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

function F(n: integer):int64 :=

n lt;= 1 ? 1 : 2.To(n).Aggregate(int64(1), (p, q)-gt; p * q);

begin

 Range(1, ReadInteger('n=')).Select(t -gt; F(t)).Sum.Println

end.

n= 10

4037913