{* Задача 480 *}

Unit ZADACH480;
Interface
Implementation
Begin
 writeln('Составить программу для вычисления среднеарифметическо- го размера деталей в партии');
End.

Program zadach480;

Uses zadach480.pas; {* Эту строку можно удалить *}
Uses CRT; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  I   : INTEGER;
  N   : INTEGER;
  SUM : REAL;
  SR  : REAL;
  R   : REAL;
Begin
  CLRSCR; {* Очищаем экран *}
  WRITE(‘ВВЕДИТЕ КОЛИЧЕСТВО ДЕТАЛЕЙ В ПАРТИИ : ’);
  READLN(N);
  SUM := 0;
  For I := 1 To N Do {* Увеличиваем I от 1 до N с шагом 1 *}
  Begin
    WRITE(‘ВВЕДИТЕ РАЗМЕР’, I,’ - ОЙ ДЕТАЛИ В ММ : ’);
    READLN(R);
    SUM := SUM + R
  End;
  SR := SUM / N;
  WRITE(‘СРЕДНЕАРИФМЕТИЧЕСКИЙ РАЗМЕР ДЕТАЛЕЙ’);
  WRITELN(‘В ПАРТИИ РАВЕН’, SR : 4:3,’ММ’);
  READKEY; {* Ждем нажатия пользователя *}
End.