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

===== PascalABC.NET =====

begin

 var (s, p) := (0, BigInteger.One);

 for var i := 1 to ReadInteger('N=') do

   (s, p) := (s + i, p * i);

 Println('Сумма', s);

 Println('Произведение', p)

end.