... function DOIXUNG(s:string):boolean; var s1:string; i,m,n,kt1,kt2:integer; begin s1:=''; for i:= length(s) downto 1 do s1:=s1+s[i]; val(s1,m,kt1);val(s,n,kt2); if m=n then DOIXUNG:=true ... a:array [1 100] of longint; b: array [1 10] of 0 9;function MU(a,n:longint):longint; begin if n=0 then mu: =1 else MU:=a*MU(a,n -1) ; end;Begin Clrscr; Write('N='); Readln(N);for i: =1 ... A:array [1 100]of longint; D,C:array [1 100] of byte; n,i,j,k,max,d1,h:longint;begin clrscr; repeat write('Nhap so phan tu cua mang n= ');readln(n);until N>0; for i: =1 to n do...