C++ :

#include<bits/stdc++.h>
using namespace std;
long long n,s;
int main()
{
	cin>>n;
	for(int i=n;i>0;i--)
		s+=i;
	cout<<s;	
	return 0;
}

Pascal :

var s,n,i:longint;
begin
    readln(s);
    for i:=1 to s do n:=n+i;
    writeln(n);
end.