Написать программу, которая считает сумму квадрататов первых n натуральных чисел.

P.S. Благодарность и лучший ответ не помешает.

var i,s,n:integer;
begin
     read(n);
     for i:=1 to n do s:=s+i*i;
     writeln(s);
end.