program damy;
var cislo: string[20];
    i: integer;
    c: char;
begin
 readln(cislo);
 i:=length(cislo);
while (cislo <> '0') do
 begin
 if (cislo='3') then writeln('Kralovny se nevejdou.')
  else 
   begin
    if (((ord(cislo[i])-48) mod 2) = 0) 
     then writeln('Kralovny se nevejdou.')
     else writeln('Kralovny lze umistit.');
   end;
  readln(cislo);
  i:=length(cislo);
 end;
end.