Uses crt;
var year:integer;
begin
read(year);
if (year>=2001) and (year<=2100) then
writeln(Yes.)
else
writeln(No.);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.