Pascal :

 var a,n,s:integer;
 begin
 s:=0;
 readln(n);
 for a:=1 to n do
   s:=s+a;
   writeln('s=',s);
 end.