Напишите процедуру которая выводит на экран в столбик все цифры переданного ей числа начиная с первого. ПАСКАЛЬ.

var a,b,c: integer ;

begin

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

read (a);

b:=0;

while a>0 do begin

b:=b*10;

b:=b + (a mod 10);

a:=a div 10;

end;

while b>0 do begin

c:=b mod 10;

b:=b div 10;

writeln (c, ' ');

end;

end.