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

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

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