Ответ:
var number, numeral, divider:longint;
begin
numeral:=0;
divider:=10000;
//read number
readln(number);
//Decompose number
while (number > 0) do
begin
numeral:=number div divider;
writeln(numeral);
number:=number mod divider;
divider:=divider div 10;
end;
end.
Объяснение:
Заводим переменные, присваеваем значения, читаем число, разбираем и печатаем число с начала до конца.