Question

Составьте программу вычисления значения выражения для данного натурального числа N: 1² + 2² + 3² + … + N².
Пожалуйста помогите....

Answer 1

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