program Project2;
type
  matice = array [1..10,1..10] of integer;
var
  i,j,m,n:integer;
  a:matice;
begin
  writeln('Zadej rozmer matice:');
  readln(m,n);
  writeln('Zadej hodnoty prvku:');
  for i:=1 to m do
    for j:=1 to n do
      readln(a[i,j]);
  for i:=1 to m do
    for j:=1 to n do
      a[i,j]:=2*a[i,j];
  writeln('Vypis matice:');
  for i:=1 to m do
    begin
    writeln;
    for j:=1 to n do
      write(a[i,j]:4);
  end;
  readln;
end.