Входной замок Лисы Алисы работает следующим образом: если введено натуральное число,...

Question

Входной замок Лисы Алисы работает следующим образом: если введено натуральное число, которое меньше 100 или больше 999-на дисплее устройства появляется надпись False если у введённого числа сумма цифр равна 13-появляется Enter и можно войти; в остальных случаях появляется надпись LOCK
Входные данные: натуральное число N (1 больше N меньше 10000
Выходные данные: необходимо вывести надпись которая должна быть на дисплее
Пример
Ввод 2 Вывод FALSE
Ввод 427 Вывод ENTER
Ввод 318 Вывод LOCK

Answer 1

Var n, s: integer;
begin
readln(n);
case n of
 100..999:
  begin
  s:=(n div 100)+(n div 10 mod 10)+(n mod 10);
  if s=13 then writeln('ENTER') else writeln('LOCK');
  end
 else writeln('FALSE');
 end;
end.

Пример:
427
ENTER