Question

Паскаль, помогите ПЖ, последнее задание срочно!!!

Answer 1

Var m,n,sum: integer;
Begin
sum:=0;
Write(‘Введите конечное число повторений: ‘);
Readln(m);
For n:=1 to m do
Begin
sum:=sum+(n*n*n-3);
End;
Write(‘Ответ: ‘’,sum);
End.