... 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 ... nguyên tố tơng đơng với n . 11 / Tìm số nhỏ nhất < ;10 000 không có ớc nguyên tố nào khác 3,5,7 12 / Tìm số nhỏ nhất > ;10 000 không có ớc nguyên tố nào khác 3,7 ,11 13 / Đọc ra tất cả các sô gần ... 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...