Найти сумму чисел от 1 до —n
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.