С помощью цикла for вычислите значение выражения 2*3 + 3*4 + . . . + 39*40Язык паскаль

VAR s,i: integer;

BEGIN

i:=1;

FOR i:=1 to 40 do

BEGIN

s+=i*(i+1)

END;

writeln('Значение выражения: ',s);

END.