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

uses crt;
  var
     a:array [1..100] of integer;
     i,k,m,n:integer;
Begin
  clrscr;
  Write('nhap m:');Readln(m);
  Write('nhap n:');Readln(n);
  if m<n then
  begin
  k:=m;
  m:=n;
  n:=k;
  end;
  i:=1;
  k:=0;
  Repeat
    i:=i+1;
    if (m mod i=0) and (n mod i=0) then
      begin
        if k=0 then
          Writeln('Hai so ',m,'va',n,'la hai so nguyen to tuong duong voi nhau vi co cac uoc nguyen to:');
        k:=1;
        Write(i,' ');
        While (m mod i=0) and (n mod i=0) do
          begin
            m:=m div i;
            n:=n div i;
          end;
      end;
  Until i>=n;
  if k=0 then
    Writeln('Hai so ',m,'va',n,'la hai so nguyen to tuong duong voi nhau');
  Readln;
End.

=> Xin hay nhat nho