Как написать программу в pascal в строчку, которая выводит разряды числа 12321? )

program Example2;

var

 a, i: Integer;

begin

 Write ('Введете целое число: ');

 ReadLn (a);

 WriteLn;

 Write ('Разряды числа: ');

 while a > 0 do begin

   Write (a mod 10, ' ');

   a := a div 10;

 end;

 ReadLn;

end.

Объяснение:

mod -  выделяем последнюю цифру

div - отбрасываем последнюю цифру