program g;
type cisla=0..9;
var m:array [1..1000] of cisla;
    i,Nm:integer;
    n:word;
    s:string;
    x,code:integer;
 
begin
write('Vvedite cislo: ');
readln(n);
str(n,s);
 
for i:=1 to length(s) do begin val(s[i],x,Nm); m[i]:=x; end;
 
Nm:=length(s);
for i:=1 to Nm do writeln('M[',i,']= ',m[i]);
 
readln;
end.