penis

program kal;
{$APPTYPE CONSOLE}
uses
  windows,
  sysutils;

const
  Nmax=5;
 type matr=array[1..Nmax,1..Nmax] of Integer;
      mass=array[1..Nmax] of Integer;
   var m,n,jj:Byte;
   a,b:matr;
   y1:Boolean;
   dat,res:TextFile;
 procedure vvod(const n,m:Byte;out a:matr; var dat:textfile);
 var i,j:Byte;
  begin
   for i:=1 to n do
   begin
    for j:=1 to m do
     Read(dat,A[i,j]);
    Readln(dat);
    end;
  end;
 procedure prov(const a,b:matr; out jj:byte; const n,m:byte; var y1:boolean);
 var i,j: byte;
begin
y1:=true;
 i:=1;
  while y1 and (i<=n) do
 begin
  j:=1;
   while y1 and (j<=m) do
  begin
    if (a[i,j]<>B[i,j]) then
   begin
    y1:=false;
    jj:=j;
   end;
   Inc(j);
  end;
  inc(i);
 end;
end;
  procedure hui(const jj:Byte; var b:matr; const n,m:byte);
var i:Byte; x:mass;
 begin
   for i:=1 to m do
   x[i]:=b[i,jj];
  for i:=1 to m do
  B[i,jj]:=b[i,m];
  for i:=1 to m do
  b[i,m]:=x[i];
 end;
 procedure out(const a:matr; const n,m:Byte; var res: textfile);
  var i,j:Byte;
  begin
   for i:=1 to n do
   begin
    for j:=1 to m do
     Write(res,A[i,j]:2);
     Writeln(res);
     end;
  end;
  begin
     AssignFile(dat, ParamStr(1));
       Reset(dat);
        AssignFile(res, ParamStr(2));
         Rewrite(res);
      Readln(dat,n);
    Readln(dat,m);
    vvod(n,m,a,dat);
    vvod(n,m,b,dat);
    out(a,n,m,res);
    Writeln(res);
    out(b,n,m,res);
     Writeln(res);
    prov(a,b,jj,m,m,y1);
    if  y1 then
    Writeln(res, 'ravni')
    else
    begin
   hui(jj,b,n,m);
   out(b,n,m,res);
   end;
    close(dat);
  close(res);
  end.