C :

#include <stdio.h>
int main(void)
{
	int a,sum,x=2,i;
	scanf("%d",&a);
	while(a>0)
	{
		sum=sum+x;
		x+=3;
		a--;
	} 
	printf("%d",sum);
	return 0;
}

C++ :

#include<iostream>
using namespace std;
int main()
{
	int n,sum=0;
	cin>>n;
	for (int i=1; i<=n; i++)
		sum+=3*i-1;
	cout<<sum<<endl;
	return 0;
}

Pascal :

var
x,n:longint;
i:real;
begin
 readln(n);
 x:=2+(n-1)*3;
 i:=(2+x)*n/2;
 writeln(i:0:0)
end.