program z1;
var i,s:integer;
begin
s:=0;
for i:=3 to 50 do s:=s+i*(i+1);
writeln (s)
end.
3*4 + 4*5 + ... + 50*51 = 44 192
Объяснение:
Перебираем числа от 3 до 50 и вычисляем сумму
