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

Question

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

Answer 1

Var a,n,p,m:integer;
beginread(a);if (a<1000) and (a>99) 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.