program damy; var cislo: string[20]; i: integer; c: integer; begin readln(cislo); i:=length(cislo); while (cislo <> '0') do begin c:=(ord(cislo[i])-48); if ((c > 8) or (i > 1)) then writeln('Kralovny se nevejdou.') else begin case c of 1: writeln('Kralovny lze umistit.'); 2: writeln('Kralovny se nevejdou.'); 3: writeln('Kralovny se nevejdou.'); 4: writeln('Kralovny se nevejdou.'); 5,7,8: writeln('Kralovny lze umistit.'); 6: writeln('Kralovny se nevejdou.'); end; end; readln(cislo); i:=length(cislo); end; end.