Написать программу, которая считает сумму квадрататов первых n натуральных чисел.
P.S. Благодарность и лучший ответ не помешает. var i,s,n:integer; begin read(n); for i:=1 to n do s:=s+i*i; writeln(s); end.