{* Задача 379 *}

Unit ZADACH379;
Interface
Implementation
Begin
 writeln('Для заданных N и написать программу, используя подходящую функцию.

');
End.

Program zadach379;

Uses zadach379.pas; {* Эту строку можно удалить *}
Const {* Предопределенные *}
  n = 5;
Type {* Используемые типы *}
  array1 = Array [1..n] Of REAL;
Var {* Необходимые переменные *}
  i             : integer;
  a             : array1;
  b             : array1;
  r             : real;
  otv           : real;
Function v (x : array1);
Var {* Объявление переменных *}
  j   : integer;
  min : real;
Begin
  min := x[1];
  For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    If x[j] > min Then
      min := x[j];
  v := min;
End;
Begin
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    readln(a[i]);
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    b[i] := sqr(a[i]);
  r := v(b);
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    b[i] := (a[i] - r) / i;
  otv := v(b);
  Writeln('OTBET = ', otv : 10 : 2);
  readln; {* Ждем нажатия Enter *}
End.