Program -for_7-

uses crt-

Var s:longint-

i, n:integer-

Begin

ClrScr-

Writeln(‘введите число ‘)-

Readln(n)-

s:=0-

For i:=1 to n do

s:=s+i-

Writeln( ‘s= ‘,s)-

Readln-

End.