program bt;

uses crt;

var a,b:longint;

function ktsnt(h:longint):boolean;

var dem,i:byte;

begin

dem:=0;

for i:=1 to h do

if h mod i =0 then dem:=dem+1;

ktsnt:=dem=2;

end;

function ucln(a,b:longint):longint;

begin

while a<>b do

if a>b then a:=a-b else b:=b-a;

ucln:=a;

end;

begin

clrscr;

write('nhap so a:');readln(a);

write('nhap so b:');readln(b);

if (ktsnt(a)=true) and (ktsnt(b)=true) then

begin

if ucln(a,b)= 1 then write(a,' va ',b,' la hai so nguyen to tuong duong')

else write(a,' va ',b,' la hai so nguyen to nhung k tuong duong');

end

else if (ktsnt(a)=true) and (ktsnt(b)=false) then

write(a,' la so nguyen to nhung ',b,' k phai so nguyen to')

else if (ktsnt(a)= false) and (ktsnt(b)=true) then

write(b,' la so nguyen to nhung ',a,' k phai so nguyen to')

else write(a,' va ',b,' khong phai la so nguyen to');

readln;

end.