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

program zz1;

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

begin

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

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

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

end.