Помогите добaвить условие к программе на PASCAL.
На олимпиаду мне нужно решить задачу. Текст звучит так:
Входной замок Лисы Алисы работает следующим образом: если введено натуральное число, которое меньше 100 или больше 999 - на дисплее устройства появляется надпись "FALSE"; если у введённого числа сумма цифр равна 13 - появляется надпись "ENTER" и можно войти; в остальных случаях появляется надпись "LOCK".
А проблема заключается в том, что я не могу добавить условие для типа integer, т. к выдаёт ошибку "Операция < не применима к типам integer и boolean"
if number < 100 or number > 999 then
writeln('FALSE');
Вот что написал я:
Program Zadanie1;
var sum: integer;
number: integer;
begin
sum := 0;
writeln('Введите число: ');
readln(number);
while number > 0 do
begin
sum := sum + (number mod 10);
number := (number div 10);
end;
if sum=13 then
writeln('ENTER');
if not (sum=13) then
writeln ('LOCK');
end.
Помогите, кто может, пожалуйста)