Question

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

Входные данные
Входная строка содержит единственное натуральное число.

Выходные данные
Если введённое число – трёхзначное, нужно вывести ответ YES, если нет, то вывести ответ NO.

Примеры
входные данные
123
выходные данные
YES
входные данные
1234
выходные данные
NO

На паскале

Answer 1

Var
A:integer;
Begin
Read(A);
if (A>99)and(A<1000) then Write('YES')
else Write('NO')
End.