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

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.