Составить программу , которая вычесляет произведение сумму первых 137 натуральных чесел (параметром цикла является переменная а, а произведение хранится в переменой p) плиз решите я на уроке сижу!!!

var a,p:integer; begin p:=1; for a:=1 to 137 do p:=p*a; writeln(p); end.

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию! begin   var p:=Range(1,137);   Writeln('Сумма чисел от 1 до 137 равна ',p.Sum);   Writeln('Их произведение равно ',p.Aggregate(BigInteger(1),(x,y)->x*y)) end. Результат Сумма чисел от 1 до 137 равна 9453 Их произведение равно 5012888748274991661034926292112253883237205694398754483388962668892510972746226260034675717797072343372830591567227826571884373881355612819314826377917827129740056802397016509378163883274055583382110208000000000000000000000000000000000