Pascal :
var a,n,s:integer; begin s:=0; readln(n); for a:=1 to n do s:=s+a; writeln('s=',s); end.
By signing up a 算道OJ universal account, you can submit code and join discussions in all online judging services provided by us.
Using your 算道OJ universal account
