program kt_doixung; uses crt; var A:array[1..10000] of integer; n,i:integer; begin clrscr; write('Nhap so luong: '); readln(n); for i:=1 to n do begin write('A[',i,']= '); readln(A[i]); end; for i:=1 to n div 2 do if A[i]<>A[n-i+1] then begin write('NO'); readln; exit; end; write('YES'); readln; end.
