VII/5

program V;
var
a : array [1..1000] of integer;
b: array[1..1000] of integer;
k1, k2, k, i, j, n : integer;

begin
    ReadLN(n, k1, k2);

    for i:= 1 to n do
        read(a[i]);

    k := n - k2 + k1 - 1;//считаем количество элементов в новом массиве
    j:= 1;//указатель, куда будем вставлять элемент
    for i := 1 to n do
        if (i < k1) OR (i > k2) then//если элемент не попадает в промежуток
            begin
                b[j]:= a[i];//вставим его по указателю
                j:= j + 1;//передвинем указатель
            end;
    for i:= 1 to k do
        write(b[i], ' ');
end.