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

// 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

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

Basic:
DIM tetradCount as INTEGER, oblojCount as INTEGER, price1 AS INTEGER, price2 AS INTEGER
CLS
INPUT "Введите кол-во тетрадей:"; tetradCount
INPUT "Введите кол-во обложек:"; oblojCount

price1 = tetradCount * 5
price2 = oblojCount * 3

PRINT "Стоимость тетрадей:"; price1
PRINT "Стоимость обложек:"; price2
PRINT "Общая стоимость:"; price1 + price2
END

C#:
Обычный класс, единственная директива препроцессора System, в методе main

int tetradCount, oblojCoubt, priceOne, priceTwo, priceSum;

Console.WriteLine("Введите кол-во тетрадей:");
tetradCount = int.Parse(Console.ReadLine());

Console.WriteLine("Введите кол-во обложек:");
oblojCount = int.Parse(Console.ReadLine());

priceOne = tetradCount * 5;
priceTwo = oblojCount * 3;
priceSum = priceOne + PriceTwo;

Console.WriteLine("Стоимость тетрадей: " + priceOne);
Console.WriteLine("Стоимость обложек: " + priceTwo);
Console.WriteLine("Общая стоимость: " + priceSum);

Строго запрещается:

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

Во время работы:

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