Hai số gọi là nguyên tố tương đương nếu chúng có cùng các ước số nguyên tố. Ví dụ 15 và 75 là các số nguyên tố tương đương. Bởi vì 15=3*5 trong khi 75=3*5^2, có cùng ước số nguyên tố là 3 và 5. Tương tự 12=2^2*3 và 18=2*3^2 là hai số nguyên tố tương đương vì có cùng hai ước số nguyên tố là 2 và 3.

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