Program peresdacha;
uses crt;
type
     radok=array [1..1] of integer;
     Pradok=^radok;
     Ptrmas=array [1..1] of Pradok;
     Ptr=^Ptrmas;
     Str_radok=array [1..1] of string;
     Sradok=^Str_radok;
var A:Ptr;
    B:Pradok;
    C:Pradok;
    S:Sradok;
    n,m:integer;
    f:text;

 procedure GetMemory(var A:Ptr;n,m:integer);
  var i:integer;
  begin
   GetMem(A,n*SizeOf(Ptr));
    for i:=1 to m do
   GetMem(A^[i],m*SizeOf(integer));
  end;

 procedure FreeMemory(var A:Ptr;n,m:integer);
  var i:integer;
  begin
   for i:=1 to m do
    FreeMem(A^[i],m*SizeOf(integer));
   FreeMem(A,n*SizeOf(Ptr));
  end;

 procedure Init(var A:Ptr;namef:string;n,m:integer);
  var t:text;
      i,j,b:integer;
  begin
   assign(t,namef);
   reset(t);
   read(t,b,b);
    for i:=1 to n do
     for j:=1 to m do
      read(t,A^[i]^[j]);
   close(t);
  end;

  procedure Work(var A:Ptr;n:integer;var flag:boolean);
   var i,j:integer;
   begin
   flag:=true;
    for i:=1 to n do
     for j:=1 to n-i+1 do
      if A^[i]^[j]<>A^[j]^[i] then
       begin
        flag:=false;
        break;
       end;
   end;

begin
clrscr;
assign(f,'f');
reset(f);
read(f,n);
close(f);
getmemory(A,n,m);
freememory(A,n,m);
end;