Description | Source Code | Sample Run | Program Notes

procedure main() local n, sum # Declare two local variables sum := 0; # Set the sum to zero every n := 1 to 100 do # For n equal to 1, 2, 3, 4, 5 ... sum := sum + n; # ...add n to the sum write ( "The sum of all numbers from 1 to 100 is ", sum ); endClick here to download a zip file containing the source code.

The sum of all numbers from 1 to 100 is 5050

Click here to download a zip file containing the executable for MS-DOS.