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

Var a,n,p,m:integer;
beginread(a);if (a99) then   begin   n:=   a mod 10 ;   a:= a div 10;   p:= a mod 10;   a:= a div 10;   m:= a mod 10;   if n+p+m=13 then   writeln (ENTER)   else     writeln (LOCK);
   end   else writeln (FALSE);
end.