Số thân thiện là số mà nó và số đảo của nó có UCLN bằng 1.VD: 23 có sổ đảo là 32,hai số đều có UCLN bằng 1,nhập vào 2 số kiểm tra xem hai số phải số thân thiện không.(Bằng pascal và dùng chương trình con)

uses crt;
var n,m:longint;

function dao(s:string):string;
begin
if length(s)=1 then exit(s)
else exit(s[length(s)]+dao(copy(s,1,length(s)-1)));
end;

function uc(a,b:longint):longint;
begin
if b=0 then exit(a)
else exit(uc(b,a mod b));
end;

function check(n:longint):boolean;
var s:string;
k:longint;
begin
str(n,s);
s:=dao(s);
val(s,k);
exit(uc(n,k)=1);
end;

begin
clrscr;
readln(n,m);
writeln('so thu nhat:',check(n));
write('so thu hai:',check(m));
readln
end.

function reverse_number(n: integer): integer;
var
    reversed, remainder: integer;
begin
    reversed := 0;
    while n <> 0 do
    begin
        remainder := n mod 10;
        reversed := reversed * 10 + remainder;
        n := n div 10;
    end;
    reverse_number := reversed;
end;

function gcd(a, b: integer): integer;
begin
    if b = 0 then
        gcd := a
    else
        gcd := gcd(b, a mod b);
end;

var
    a, b: integer;
begin
    readln(a);
    readln(b);
    if gcd(a, reverse_number(a)) = 1 then
        writeln(a, ' la so than thien')
    else
        writeln(a, ' khong phai la so than thien');
    if gcd(b, reverse_number(b)) = 1 then
        writeln(b, ' la so than thien')
    else
        writeln(b, ' khong phai la so than thien');
end.