Program Array21;
var
  a : array of integer;
  i, k, l, n : integer;
  sr : real;
begin
  sr := 0.0;
  WriteLn('Длина массива:');
  ReadLn(n);
  SetLength(a, n);
  WriteLn('Введите K, L:');
  ReadLn(k, l);
  Writeln('Введите ', n, ' чисел:');
  for i := low(a) to high(a) do
  begin
    Read(a[i]);
    if i in [k-1..l-1] then sr := sr + a[i];
  end;
  ReadLn;
  WriteLn ('Среднеарифметическое равно ', sr/(l-k+1):4:3);
  ReadLn;
end.