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.