Program BTT;
Uses crt;
Type manga=array[1..10000] of longint;
Var A: manga;
    n,i: longint;

Function ktra(A: manga; n: longint): boolean;
Var i: longint;
Begin
        For i:=1 to n div 2 do
                If A[i]<>A[n-i+1] then exit(false);
        exit(true);
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        If ktra(A,n) then Write('Mang doi xung')
        Else Write('Mang khong doi xung');
        Readln
End.

program bai_giai;
uses crt;
var A:array[1..200] of integer;
    n,i,d:integer;
begin
    clrscr;
    write('Nhap so phan tu: '); readln(n);
    for i:=1 to n do
        begin
            write('Nhap phan tu thu ',i,': '); readln(A[i]);
        end;
    d:=0;
    for i:=1 to n div 2 do
        if A[i]<>A[n-i+1] then d:=d+1;
    if d=0 then write('Doi xung') else write('Khong doi xung');
    readln;
end.