Написать программу, которая по заданному натуральному значению вычисляет результат выражения: S=1*2+2*3+3*4…n*(n+1) — Pascal(Паскаль)

var
s,i,n:integer;
begin
writeln('Введите n');
readln(n);
s:=0;
for i:=0 to n do
    begin
    s:=s+i*(i+1);
    end;

writeln('Результат');
writeln(s);
end.