//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var n := ReadLnInteger('n =');
if (n < 100) or (n > 999) then begin
writeln('FALSE');
Halt;
end;
n := n div 100 + (n div 10) mod 10 + n mod 10;
if n = 13 then
writeln('ENTER')
else
writeln('LOCK');
end.