найти среднее арифметическое квадратов первых 10 натуральных чисел

program aliona;var s,i:integer;sr:real;beginsr:= 0;s:=0;for i:= 1 to 10 do   begins:=s+sqr(i);  sr:=s/10  end;  writeln('sr=',sr);  readln;  end.