Составьте программу, определяющую,относится ли введённых с клавиатуры год к первому веку первый век начинается 2001 г. и заканчивается в 2100

var a:integer;

begin

writeln('Введите год:');

read(a);

if (a>=2001) and (a<=2100) then begin

writeln('Относится');

end

else

writeln('Не относится');

end.