Дано натуральное число n.составить программу нахождения суммы всех чисел от 1 до n.паскаль.

Var
   N:integer;
   S:real;
Begin
Write('N = ');
ReadLn(N);
S:=N;
For N:= 1 to N-1 do
    S:=S+N;
WriteLn('S = ',S);
End.