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

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