Определить и вывести на жкран цифры целого числа n

Получение цифр числа по схеме последовательного деления на 10

(порядок следования цифр будет изменен на обратный)

var

n:integer;

begin

Write ('n=') ; Read (n) ;

n:=Abs (n) ; { от ввода отрицательного числа }

while n>0 do begin

Write (n mod 10,' ') ;

n:=n div 10;

end

end.

Пример

n=28504

4 0 5 8 2