C++ :

#include<iostream>
#include<cstdio>
using namespace std;
int main()
{
 int t=1,s=0;
  for(int i=1;i<=10;++i)
  {
    t=t*i;
    s=s+t;
  }
  cout<<s;
  return 0;
}

Pascal :

PROGRAM AA;
BEGIN
 WRITE('4037913');
END.