program hamf; uses crt; var A: array[1..500] of integer; n, i, j, d: integer; begin clrscr; write('Nhap n = '); readln(n); for i:=1 to n do begin write('A[', i, '] = '); readln(A[i]); end; j:=n; for i:=1 to n do begin if A[i]=A[j] then d:=d+1; j:=j-1; end; if d=n then write('Day co doi xung') else write('Day khong doi xung'); readln end.
program oken; uses crt; var s: string; i,n: integer; begin clrscr; write('Nhap day so: '); readln(s); i:=1; n:= length(s); while (s[i]=s[n-i+1]) do begin if i>n then break; inc(i); end; if i>=n then write('Co') else write('Khong'); readln; end.
