составить программу вычисления суммы ряда s:=1+2+3+4+5+6

program summa;uses crt;Var s, i, n:integer;begin Write('n=') ;readln(n) ; s:=1; write('s=1') ; For i:=2 to n do Begin s:=s+i; Write('+', i) ; End; Write('=', s) ; readln;end.