Website and domain for sale:

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

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.
Answer add