Напишите программу, которая определяет, верно ли, что введённое число -– трёхзначное

Lg 2 - x=0 07 1 С/П 0 С/П

Ввод: число С/П.

Вывод: 1, если трёхзначное, 0, если нет.

Begin
WriteLn(ReadInteger() in [100..999]);
end.