var n,i,sum:longint; begin readln(n); sum:=0; for i:=1 to n do sum:=sum+i; writeln(sum); end. /************************************************************** Problem: 2100 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/