Найти среднее арифметическое квадратов всех целых чисел от 1 до 100 (программа Паскаль)

program z1;
uses crt;
var i:integer;s:real;
begin
for i:= 1 to 100 do
s:=s+sqr(i);
s:=s/100;
writeln (s);
end.