**This script page was blocked.**The script was reviewed and it works perfectly so this page doesn't need anymore editing.

This script adds a number range (1+2+3+4+5+...+n) using FOR...DO:

## Variant 1

var x,s,i:integer; begin write ('n='); readln (n); for i:=1 to n do s:=s+i: write ('The sum is: ',s); readln; end.

### Explanation

For the first, we read `n` from the keyboard. Then, in order to make a number range,we'll use FOR...DO. So `i` will be for the first 1, then 2, then 3,... We only need to add `i` to the sum `s` and show it on the screen.

## Variant 2

var x,s,i:integer; begin write ('n='); readln (n); i:=0; {initialization} repeat i:=i+1; s:=s+i; until i=n; write ('The sum is: ',s); readln; end.

### Explanation

For the first, we read `n` from the keyboard. Then, in order to make a number range,we'll use REPEAT...UNTIL. So `i` will be for the first 1, then 2, then 3,... and the REPEAT will break the cycle if `i` will become equal to `n` We only need to add `i` to the sum `s` and show it on the screen.