Подпрограммы (процедуры и функции)

Program z6;
const n=10;
type t=array [1..n] of integer;
Var a:t; p:real; s:real; i:integer;
function pr(n:integer) :real;
begin for i:=1 to n do
  p:=p*i;
  pr:=p;
end;
procedure summa (n:integer; var s:real);
begin s:=0;
  for i:=1 to n-1 do
  s:=s+pr(i+1);
end;
begin {main}
summa (10,s);
writeln ('s=', s);
end.
 
То этим .... и невыходит...
 
Program z6;
const n=4;
Var s:real; k, i:integer;
procedure summa (n:integer; var s:real);
var p:real;
begin s:=0;
 
 
  for i:=1 to n do begin p:=1;
  for k:=i to 2*i do
  p:=p*i;
  s:=s+p;
  end;
 
end;
begin {main}
summa (n,s);
writeln ('s=', s:10:2);
end.

var i,s,n:integer;
begin
write('n=');
readln(n);
s:=0;
for i:=1 to 2*n-1 do s:=s+i*(i+1);
write('Sn=',s);
readln
end.

uses crt;
function Summa(n:byte):real;
var i,j:byte;
    s,p:real;
begin
s:=0;
for i:=1 to n do
 begin
  p:=1;
  for j:=i to 2*i do
  p:=p*j;
  s:=s+p;
 end;
Summa:=s;
end;
var n,i,j:byte;
    p,s:real;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
write('Сумма ряда=',Summa(n):0:0);
readln
end.