Find the sum of all positive numbers not exceeding a given natural number N. Pascal program.

program zz1;

var i, s, n: integer; // set variables of integer type

begin

write (‘enter the given number’); // enter a number from the keyboard

read (n);

for i: = 1 to n do // organize a loop in which we iterate over all numbers from one to n

s: = s + i; // calculate the sum of all numbers not exceeding this natural number

writeln (‘the sum of all positive numbers not exceeding a given natural number =’, s); // display the answer

end.