Program Array23;
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 not(i in [k-1..l-1]) then sr := sr + a[i];
  end;
  ReadLn;
  WriteLn ('Среднеарифметическое равно ', sr/(n-l+k-1):4:3);
  ReadLn;
end.