Program nt_t_d;
Uses crt;
Var x,y,i,j: word;
Function nt(Var x:word): boolean;
Var i,n,j,s: word;
kt: boolean;
begin s:= 0;
kt := false;
For i:=1 To x do if x Mod i=0 Then s:=s+1;
If s=2 Then kt:=true;nt:=true;
End;
begin
write('nhap x:');
readln(x);
Write('nhap y:');
readln(y);
For i:= 1 To x do
for j:=1 To y do
if (x Mod j=0)And(y mod j=0)And(nt(j))
then write(x,y,'la hai so nttuong duong')
Else Write(x,y,'khonglahai so nt tuong duong');
readln
end.