Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой.

uses crt;

var

a, n, i: integer;

begin

writeln ('Введите число.');

read (a);

n : = 0;

while a > 0 do

begin

n : = n * 10;

n : = n + (a mod 10);

a : = a div 10;

end;

writeln ('Цифры в составе данного числа: ');

while n > 0 do

begin

i : = n mod 10;

n : = n div 10;

writeln (i);

end;

end.