Program Array22;
var
  a : array of integer;
  i, k, l, sum, n : integer;
begin
  sum := 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 Inc(sum, a[i]);
  end;
  ReadLn;
  WriteLn ('Сумма равна ', sum:4);
  ReadLn;
end.