Hai số tự nhiên được gọi là nguyên tố tương đương nếu chúng có chung các ước nguyên tố. ví dụ các số 75 và 15 là nguyên tố tương đương vì cùng có các ước nguyên tố là 3 và 5. cho trước hai số tự nhiên N và M hãy viết chương trình kiểm tra xem các số này có là số nguyên tố tương đương với nhau hay không pascal nha

var i,n,m,k,d: integer;

function ucln(x,y: integer): integer;

var t: integer;

begin

while y<>0 do

begin

t:= x mod y;

x:=y;

y:=t;

end;

ucln:=x;

end;

function nt(b: longint): boolean;

var j: longint;

begin

nt:=true;

if (b=2) or (b=3) then exit;

nt:=false;

if (b=1) or (b mod 2=0) or (b mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(b)) do

begin

if (b mod j=0) or (b mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('Nhap N: '); readln(N);

write('Nhap M: '); readln(M);

d:=0;

k:=ucln(N,M);

for i:=1 to k do

if nt(i) then d:=d+1;

if d>0 then write('2 so nay tuong duong voi nhau') else write('2 so nay khong tuong duong voi nhau');

readln

end.