Разработать перечислители для целочисленного типа и типа variant (содержит значение только целочисленного типа),
позволяющие получать последовательный доступ к цифрам числа,
от младшей к старшей. В результате использования перечислителя следующая программа:
var c:integer;
begin
for c in 123456 do write(c:2);
end.
выведет строку 6 5 4 3 2 1
Аналогичным образом сработает и следующая программа:
var c:integer; v:variant;
begin
v:=123456;
for c in v do write(c:2);
end.