{* Среднее арифметическое дробных чисел *}

Unit CIKL_6;
Interface
Implementation
Begin
 writeln('Вводится с клавиатуры n дробных чисел и вычитается их среднее арифметическое');
End.

Program cikl_6;

Uses cikl_6.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  k : real;
  s : real;
  n : integer;
  i : integer;
Begin
  clrscr; {* Очищаем экран *}
  writeln('Vvedite kol - vo vvodimix chisel');
  readln(n);
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    writeln('Vvedite ', i, ' chislo');
    readln(k);
    s := s + k;
  End;
  writeln('Srednee arifmeticheskoe = ', s / n : 5 : 2);
  readkey; {* Ждем нажатия пользователя *}
End.