{* Задача 279 *}

Unit ZADACH279;
Interface
Implementation
Begin
 writeln('Найти среднее арифметическое квадратов всех целых чисел от 1 до 100. ');
End.

Program zadacha_18;

Uses zadach279.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  i : integer; {числа}
  c : longint; {сумма квадратов}
  f : real; {среднее арифметическое квадратов}
Begin
  clrscr; {* Очищаем экран *}
  c := 0;
  For i := 1 To 100 Do {* Цикл для i => [1 .. 100] *}
  Begin
    c := i * i + c; {нахождение суммы квадратов}
  End;
  f := c / 100; {нахождение среднего арифметического квадратов}
  writeln('Среднее арифметическое квадратов всех целых чисел от 1 до 100 :          readln; {* Ждем подтверждения пользователя *}
End.