Дано естественное число n (n999999). Заполнить массив его цифрами, расположенными в

program massiv ;
uses crt;
nbsp;type mas=array[1..1000] of integer;
var i,n,r: integer;
nbsp;nbsp;nbsp;nbsp;m:mas;
begin writeln (введи число) ;
readln (n); i:=1;
repeat
m[i]:= n mod 10;
n:= n div 10;
i:=i+1;
until n=0;
nbsp;nbsp;nbsp;nbsp;for r:=1 to i-1 do
nbsp;nbsp;nbsp;nbsp;write(m[r], nbsp;);
nbsp;nbsp;nbsp;nbsp;end.