var

N,i,d:word;

begin

if N<2 then

write(N,'khongphailasonguyento')

else

begin

d:=0;

for i:=2 to N div 2 do

if N mod i=0 then d:=d+1;

if d=0 then

write(N,'lasonguyento');

end;

readln;

end.