var a:integer;
begin
writeln('Введите год:');
read(a);
if (a>=2001) and (a<=2100) then begin
writeln('Относится');
end
else
writeln('Не относится');
end.
var a:integer;
begin
writeln('Введите год:');
read(a);
if (a>=2001) and (a<=2100) then begin
writeln('Относится');
end
else
writeln('Не относится');
end.