program Project2;
type
  matice = array [1..10,1..10] of integer;
var
  i,j,m,n:integer;
  a:matice;
procedure nacti(r,s:integer; var b:matice);
begin
  for i:=1 to r do
    for j:=1 to s do
      readln(b[i,j]);
end;
procedure uprav(r,s:integer; var b:matice);
begin
  for i:=1 to r do
    for j:=1 to s do
      b[i,j]:=2*a[i,j];
end;
procedure vypis(r,s:integer; var b:matice);
begin
  for i:=1 to r do
  begin
    writeln;
    for j:=1 to s do
      write(a[i,j]:4);
  end;
end;
begin
  readln(m,n);
  nacti(m,n,a);
  uprav(m,n,a);
  vypis(m,n,a);
  readln;
end.