{* Задача 274 *}

Unit ZADACH274;
Interface
Implementation
Begin
 writeln('Даны целые числа от 1 до n. Посчитать среднее арифметическое этих чисел, если оно превышает 17, то на экран вывести число на 5 меньше среднего арифметического. В противном случае на экран вывести произведение этих чисел');
End.

Program zadach274;

Uses zadach274.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  i   : integer; {счетчик}
  n   : integer; {количество чисел}
  s   : integer; {сумма чисел}
  sr  : real; {среднее арифметическое}
  p   : integer; {произведение}
  msr : real; {величина на 5 меньше ср. арифметического}
Begin
  writeln ('введите количество чисел ряда');
  readln (n);
  s := 0;
  p := 1;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    s := s + i;
    sr := s / n;
    p := p * i;
  End;
  If sr > 17 Then
  Begin
    msr := sr - 5;
    writeln ('величина на 5 меньше среднего арифметического', '  ',);
    readln; {* Ждем нажатия Enter *}
  End;
  Else Begin
    writeln ('произведение чисел равно', p);
  readln; {* Ждем подтверждения пользователя *}
End;

  End...