Информатика. найти среднее арифметическое квадратов всех целых чисел от 1 до 100 !!!Срочно пожалуйста

Получается 3383.5
Программа в четыре строчки. Объявляешь dAverage как double, инициализируешь 0.0. Главная часть: в цикле по i от 1 до 100 делаешь присваивание dAverage := (dAverage * (i - 1) + i * i) / i
После цикла в dAverage будет среднее квадратов от 1 до 100.