Посчитать сумму квадратов первых 10 чисел.(на паскале ришить)

var sum,i:integer; begin for i:=1 to 10 do sum:=sum+i*i; writeln(sum); end.