Số thân thiện

Tìm tất cả các số tự nhiên hai chữ số mà khi đảo trật tự của hai chữ số đó sẽ thu được một số nguyên tố cùng nhau với số đã cho.

                                                           Lời giải tham khảo

var
   a,b,c,d,i,m,n,UCLN:integer;
begin
     clrscr;
     for i:= 10 to 99 do
         begin
              m:=i; UCLN:=0;
              a:= m div 10;
              b:= m mod 10;
              n:= (b*10+a);
              for c:= 1 to 99 do begin
                  if m mod c = 0 then
                     if n mod c = 0 then
                        UCLN:=c;
                        end;
              if UCLN= 1 then writeln ('so ',i,' la so than thien');
         end;
     readln;
end.