составить программу вычисления суммы ряда 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.