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

Var a:integer;
begin
read(a);
if (a>99) and (a<1000) then write('YES') else write('NO');
end.