viết chương trình pascal in ra màn hình các số từ a->b(nhập từ bàn phím) các số sau: số lượng các số từ khoảng a->b có ước chung lớn nhất với số đảo ngược của nó là 1

var a,b,d:int64;
i:longint;
function dx(n:int64):int64;
var m,sodao:int64;
begin
    m:=n;
     sodao:=0;
      repeat
sodao:=sodao*10+(n mod 10);
 n:=n div 10;
  until n=0;
end;
 function ucln(a,b:int64):int64;
 begin
    if (a mod b=0) then exit(b)
    else exit(ucln(b,a mod b));
end;
 begin
    read(a,b);
    for i:=a to b do 
    if ucln(i,dx(i))=1 then inc(d);
    write(d);
end.

uses crt;
var a,b,i:longint;

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

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 int(n:longint):longint;
var s:string;
begin
str(n,s);
s:=dao(s);
val(s,n);
end;


begin
clrscr;
readln(a,b);
for i:=a to b do
 if uc(i,int(i))=1 then
  write(i,' ');
readln
end.