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

program zz1;

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

begin

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

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

write( среднее арифметическое квадратов первых 10 натуральных чисел = , r / k); // выводим ответ

end.