program z3_31;
uses crt;
var j,i,n:integer;
s,p :Longint;
Begin
ClrScr;
Write('n<8, n=');
Read(n);
For i:=1 to n do
begin
p:=1;
For j:=i to 2*i do
p:=p*j;
s:=s+p;
end;
write('s=',s);
Readkey;
end.
#include <iostream>using namespace std;void main(){int n;long int s=0,p;cout<<"n<8, n = ";cin>>n;for(int i=1;i<n;i++){p=1;for(int j=i;j<2*i;j++)p*=j;s+=p;}cout<<"s = "<<s<<endl;system("pause");}У Вас нигде не инициализирована переменная s, поэтому я ее задал равной 0.