Số tự nhiên có rất nhiều tính chất thú vị. Ví dụ với số 23, số đảo ngược của nó là 32. Hai số này có ước chung lớn nhất là 1. Những số như thế được gọi là số thân thiện, tức là số 23 được gọi là số thân thiện, số 32 cũng được gọi là số thân thiện. Yêu cầu: Với 2 số nguyên a, b (10ab30000). Hãy đếm xem trong khoảng từ a đến b (kể cả a và b) có bao nhiêu số thân thiện. LƯU Ý: Phải dùng chương trình con của UCLN và chương trình con lúc đảo số, làm trên Pascal ạ !!!

// number island = NI = đảo số
program Pascal_De_Nhat ;
  uses crt, math;
    var a, b , d, i: longint ;
   function UC(x,y:longint) : longint ;
        var i : longint ;
     begin
    UC := 1 ;
    for i := 2 to min(x,y) do 
        if (i mod x=0) and (i mod y=0) then UC := i ;
     end ;
   function NI(n:longint) : longint ;
     var s, kq : string ;
         lus,  i : longint ;
     begin
    str(n,s);
    for i := length(s) downto 1 do 
        kq := kq + s[i];
    val(kq,lus);
    NI := lus ;
     end ;
begin 
    clrscr;
    read(a,b);
    d := 0 ;
    for i := a to b do 
        if UC(i,NI(i)) = 1 then d := d + 1 ;
    write(d);
    readln ;
end .