ПОЖАЛУЙСТА ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ И БЛОК-СХЕМУ.Срочно надо программу надо на Паскаледано натуральное число n. вычислить s=1*2+2*3*4+...+n*(n+1)*...*2nЗаранее очень благодарна

Program 1;
 Var s,i,n,a:integer;
begin
writeln(Введите число n);
readln(n);
S:=0;
for i:=2 to 2*n do
begin
a:=i*(i-1);
S:=S+a;
end;
writeln(S=,S:3);
readln;
end.

Дайте лучший ответ)