var a:integer;
begin
writeln('Введите год:');
read(a);
if (a>=2001) and (a<=2100) then begin
writeln('Относится');
end
else
writeln('Не относится');
end.
Например если это число 123456, то 2*4*6=48
===== PascalABC.NET =====
begin
var a:= ArrRandom(30, -99, 99);
Sort(a);
a.Println;
Println('Количество различных чисел:', a.Distinct.Count)
end.
На самом деле в этом решении упорядоченность в массиве значения не имеет, что можно проверить, удалив или закомментировав строку с Sort(a);