Дано натуральное число п. Вычислить: 1*2 + 2*3*4 + … + n*(n + 1) … 2n — Pascal(Паскаль)

uses crt;
function Sum(n:integer):extended;
function Fak(n:integer):extended;
begin
if n=1 then Fak:=1 else Fak:=Fak(n-1)*n;
end;
begin
if n=1 then Sum:=2
else Sum:=Sum(n-1)+Fak(2*n)/Fak(n-1);
end;
var a:integer;
begin
clrscr;
write('a=');
readln(a);
write('Summa=',Sum(a):0:0);
readln
end.