var i,j,n:longint; 
function isp(x:longint):boolean;
begin
  j:=trunc(sqrt(x));
  for i:=2 to j do
  begin
    if x mod i=0 then
    begin
      isp:=false;
      exit;
    end;
  end;
  isp:=true;
end;
begin
  read(n);
  while n<>0 do
  begin
    if (n=1) or ((n>3) and isp(n)) then writeln('Kralovny lze umistit.') else
    writeln('Kralovny sa nevejdou.');
    read(n);
  end;
end.