var
i,j,k,l,m,n:longint;
begin
while not eof do begin
k:=0;
l:=0;
readln(i);
if (i mod 2<>0) and (i<>1) then repeat
j:=j+1;
if (i mod j)=0 then begin
k:=1;
break;
end;
until j*j>i
else if i<>2 then k:=1;
if i=1 then k:=1;
if k=0 then writeln(*质数*)
else writeln(*非质数*);
end;
end.