Напишите программу, которая определяет, верно ли, что введённое число - - трёхзначное. Входные данные: Входная строка содержит единственное натуральное число. Выходные данные: Если введённое число - трёхзначное, нужно вывести ответ YES, если нет, то вывести ответ NO.

program zz1;

var a:integer; / / задаем переменную целого типа

begin

write (' введите число '); / / вводим с клавиатуры заданное число

read (a);

if (a > 99) and (a < 1000) / / проверяем условие, если введенное число в диапазоне от 100 до 999, то

then write (' YES ') / / выводим один ответ

else write (' NO '); / / иначе, выводим другой ответ

end.