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.
