===== 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.
