Дано 5 значное число ( не integer, а longint). вывести его цифры в столбик. !

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.

Объяснение:

Заводим переменные, присваеваем значения, читаем число, разбираем и печатаем число с начала до конца.