Найти сумму и произведение первых а последовательных чисел

Question

Найти сумму и произведение первых а последовательных чисел

Answer 1

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
begin
  var a:=ReadInteger('a=');
  var s:=0;
  var p:biginteger:=1;
  for var i:=1 to a do begin s+=i; p*=i end;
  Writeln('Сумма ',s,', произведение ',p)
end.

Пример
a= 30
Сумма 465, произведение 265252859812191058636308480000000