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

program zz1;

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

begin

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

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

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

end.