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

uses crt;
var
i,s,n : integer;
begin
ClrScr;
s:=0;
Writeln('Введите n');
readln(n);
for i:=1 to n do
s:=s+i*(i+1);
Writeln('Итог ',s);
readln;
end.