Массивы. Паскаль

Массивы. Паскаль
Помогите решить эту задачу.
Дан массив размерности n, числа k,l. Найти сумму элементов массива, кроме элементов с номерами от k до l включительно.

  • о бог мой)
  • ха ха раскатал (а) губу...
  • Это ж надо циклы знать! не....
  • Даже смысла нет открывать Паскаль, так пишу код(вместо a только a квадратная скобка i квадратная скобка):
    const
    n = 10;
    var
    i, k, l, sum : integer;
    A : array[1..n] of integer;
    begin
    writeln('Дан массив из ',n,' чисел, введите k и l: ');
    read(k,l);
    for i := 1 to n do
    begin
    A := random(9);
    write(A
    ,' ');
    end;
    writeln;
    sum := 0;
    if ( l > =k ) and ( l< = n ) then
    begin
    for i := 1 to n do
    if ( i < k ) or ( i > l ) then
    sum := sum + A
    ;
    end;
    writeln('Сумма элементов за исключением с ',k,' по ',l,' элемент равна ',sum);
    end.