С помощью цикла for вычислите значение выражения 3*4 + 4*5 +. . . + 50*51ЯЗЫК ПАСКАЛЬ

var

s : longint;

i : integer;

begin

s:= 0;

for i := 3 to 50 do

s:= s + i*(i+1);

write(s);

end.