ПОЖАЛУЙСТА ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ И БЛОК-СХЕМУ

Program 1; Var s,i,n,a: integer; beginwriteln ('Введите число n'); readln (n); S: =0; for i: =2 to 2*n dobegina: =i*(i-1); S: =S+a; end; writeln ('S=',S: 3); readln; end. Дайте лучший ответ)