Введите семизначное натуральное число. Выведите все его цифры в прямом порядке на экран. Использовать циклический алгоритм. Пример:1234567. Цифры :1,2,3,4,5,6,7.

Program z1;var i,a,b,c:integer;beginwrireln('Введите число');readln(a);while a<0 do beginb:=a mod 10;a:=a div 10;write(' ',b);end;end.

var i,a,b,c:integer;beginwrite('Введите семизначное натуральное число: ');readln(a);c:=1000000;write('Цифры: ');while a>a mod 10 do beginb:=a div c;a:=a mod c;c:=c div 10;write(b,', ')end;write(a,'.')end.