Найти сумму всех натуральных чисел от 1 до n и произведение. Напишите, пожалуйста,…

program test; var i, n, sum, product: integer; begin write ('Enter n: '); readln (n); sum: =0; product: =1; for i: =1 to n do begin sum: =sum+i; product: =product*i; end; writeln ('Sum=', sum); writeln ('Product=', product); readln (); end.