program z11111;
const k=10;
var a:array[1..10,1..10] of integer;
    m,n,i,j,p:integer;
procedure InputArray;
begin
   write('m=');readln(m);
   if m>10 then
      begin
         writeln('m must be <=10');readln;
         n:=0;m:=0;
         exit;
      end;
   write('n=');readln(n);
   if n>10 then
      begin
         writeln('n must be <=10');readln;
         n:=0;m:=0;
         exit;
      end;
   for i:=1 to m do
       for j:=1 to n do
          begin
             write('a[',i,',',j,']=');readln(a[i,j]);
          end;
   for i:=1 to m do
       begin
          for j:=1 to n do
             write(a[i,j]:3);
             writeln;
       end;readln;
end;
begin
  InputArray;
end.