class Program
    {
        static void Main(string[] args)
        {
            int[] A = new int[] { 1, 7, 1, 8, 3, 5, 9, 8, 0 };
            int count = calc(A);
            Console.WriteLine(count);
            Console.ReadLine();
        }

        //подсчет минимального числа исключений
        private static int calc(int[] A)
        {
            //пербираем число отбрасываемых элементов
            for (int i = 0; i < A.Length; i++)
            {
                 if(Exclude(A, 0, i, new bool[A.Length]))
                     return i;
            }

            return A.Length;
        }

        //исключение одного элемента
        private static bool Exclude(int[] A, int fromIndex, int excludeCount, bool[] excluded)
        {
            if(excludeCount==0)
                return Check(A, excluded);
            for (int i = fromIndex; i < A.Length; i++)
            {
                excluded[i] = true;
                if(Exclude(A, i + 1, excludeCount - 1, excluded))
                    return true;
                excluded[i] = false;
            }
            return false;
        }

        //проверка на возрастание
        private static bool Check(int[] A, bool[] excluded)
        {
            int prev = int.MinValue;
            for(int i=0;i<A.Length;i++)
            if(!excluded[i])
            {
                if (A[i] <= prev)
                    return false;
                prev = A[i];
            }

            return true;
        }
    }

Uses Crt;
type
pSpisok = ^Slova;
Slova = Record
slv : string[10];
next : pSpisok
end;
var
Head1, Tail1, Head2, Tail2, Ptr1, Ptr2, Pysk1, Pysk2 : pSpisok;
St, Str : string[10];
F : text;
I, K, N : integer;
Name : string;
begin
ClrScr;
Writeln ('Fail dolgen sodergat slova, raspologennie postrochno');
Writeln ('Vvedite imya faila: ');
Readln (Name);
Assign (F, Name);
Reset (F);
Head1 := Nil;
Tail1 := Nil;
Head2 := Nil;
Tail2 := Nil;
ClrScr;
While not Eof(F) do
begin
Readln (F, St);
New (Ptr1);
Ptr1^.Slv :=St;
Ptr1^.Next := Nil;
If Tail1 <> Nil then
Tail1^.Next := Ptr1;
Tail1 := Ptr1;
If Head1 = Nil then
Head1 := Ptr1;
end;
Tail1^.Next := Head1;
Ptr1 := Head1;
Pysk1 := Head1;
repeat
Str := Ptr1^.Slv;
N := length(str) - 1 div 3;
If Str <> '' then K := 1;
for I := 1 to N do
begin
Delete (Str, K+1, 1);
K := K + 2;
end;
New (Ptr2);
Ptr2^.Slv := Str;
Ptr2^.Next := Nil;
If Tail2 <> Nil then
Tail2^.Next := Ptr2;
Tail2 := Ptr2;
If Head2 = Nil then
Head2 := Ptr2;
Pysk1 := Ptr1^.Next;
Ptr1 := Pysk1;
Until Pysk1 = Head1;
Tail2^.Next := Head2;
Pysk1 := Head1;
Pysk2 := Head2;
Ptr1 := Head1;
ptr2 := Head2;
repeat
Write (Ptr1^.Slv,' ');
Writeln (Ptr2^.Slv);
Pysk1 := Ptr1^.Next;
Pysk2 := Ptr2^.Next;
Ptr1 := Pysk1;
Ptr2 := Pysk2;
until Pysk2 = Head2;
repeat until KeyPressed;
End.