-1 tức là không có ước số nguyên tố nhé bạn.

uses crt;
var n,m:longint;
function nt(a:longint):boolean;
var i:longint;
begin
   if a>1 then nt:=true else nt:=false;
   for i:=2 to trunc(sqrt(a)) do 
      if a mod i=0 then nt:=false;
end;
function kt(a:longint):longint;
begin
   kt:=a;
   while (not(nt(kt)))or(a mod kt<>0) do dec(kt);
   if kt=1 then kt:=-1; 
end;
begin 
clrscr;
   write('Nhap 2 so: ');readln(n,m);
   write(n,' va ',m,' co USNTLN la ',kt(n),', ',kt(m),' va ');
   if kt(n)<>kt(m) then write('khong than thiet.') else
   write('la cap so than thiet.');
readln 
end.

uses crt;
var a, b: longint;
function phantich(n: longint):longint;
var i: longint;
begin
    i:=2;
    while i*i <= n do
        begin
            while n mod i = 0 do n:=n div i;
            inc(i);
        end;
    if n = 1 then exit(i - 1);
    exit(n);
end;
begin
    clrscr;
    readln(a, b);
    write(a, ' va ', b, ' co USNTLN la ');
    
    a:=phantich(a);
    b:=phantich(b);
    write(a, ', ', b, ' va');
    
    if a = b then write(' la cap so than thiet') else write(' khong than thiet');
readln;
end.