Срочно ! Паскаль! Функции! Найдите среднее арифметическое квадратов всех целых чисел от 1 до k (k вводится с клавиатуры )

var k:integer;function sr(n:integer):real;var i,s:integer;begins:=0;for i:=1 to n do s:=s+i*i;sr:=s/n;end;beginwrite('k='); readln(k);writeln('Среднее арифметическое = ', sr(k));end.Пример:k=5Среднее арифметическое = 11