Website and domain for sale: mail@discussmain.com

to write the program for determination of the sum of natural numbers from 1 to n (n-is entered from the keyboard)

316
Program z1; var a, i, n, sum: integer; Begin sum: = 0 read(n); for i: = 1 to n begin read (a); sum: = sum+a; end; writeln(sum); End.
371
Answer add