program mn;
uses crt;
var a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
i,j,n,k,s:integer;
BEGIN
ClrSCr;
randomize;
Write('N:');readln(n);
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
begin
a[i,j]:=random(n);
Write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
begin
s:=0;
for j:=1 to n do
b[j]:=0;
for j:=1 to n do
b[a[i,j]]:=1;
for j:=1 to n do
if b[j]=1
then inc(s);
if s=n
then inc(k);
end;
if k=n then begin {---------------------}
k:=0;

for j:=1 to n do
begin
s:=0;
for i:=1 to n do
b[i]:=0;
for i:=1 to n do
b[a[i,j]]:=1;
for i:=1 to n do
if b[j]=1
then inc(s);

if s=n
then inc(k);
end;

if k=n
then writ
eln('EEE'); end; {---------------------}
readln;
END.