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

program zz1;

var r, i, k:integer; / / задаем переменные целого типа

begin

for i:=1 to 100 do / / организуем цикл, в котором переберем все числа от единицы до ста

begin r:=r + i * i; k:=k + 1; end; / / добавляем квадрат числа к сумме и считаем количество

write (' среднее арифметическое квадратов всех целых чисел от 1 до 100 = ', r / k); / / выводим ответ

end.