program L11_17;

uses

 crt;

type

 arr=array[1..100] of real;

var

 a:arr;

 n,j,k,s:integer;

 f:boolean;



procedure input(var n:integer;var a:arr);

Var

 i:integer;

Begin

 Writeln('Vvedite kolichestvo elementov:');

 Read(n);

 Writeln('Vvedite posledovatelnost:');

 For i:=1 to n do

  read(a[i]);

end;



function perev(a:arr; l,r: byte): boolean;

{проверка, является ли подпоследовательность a[l]..a[r] перевертышем

* возвращает  True, если является

*     False, если не является}

var

 b: boolean;

 i: byte;

begin

 b:=True;

 for i:=0 to (r-l) div 2 do

  if a[l+i]<>a[r-i] then

   b:=False;

 perev:=b;

end;



procedure search(a:arr; i,j,n:integer);

Begin

 writeln('trying ',i,' ',j);

 writeln(perev(a,i,j));  {napishet TRUE, esli perevertysh}

 if (i<>n-1) or (j<>n) then

 {nnnnnnnoooooooooooooo}

 begin

  if j=n then

   search(a,i+1,i+2,n)

  else

   search(a,i,j+1,n);

 end;





end;



Begin

 clrscr;

 input(n,a);

 search(a,1,2,n);

 readkey;

end.