Составить программу, которая находит сумму квадратов чисел от 1 до 10

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