infoarena informatica de performanta

01.var a:array[1..500,1..500]of longint; 
02.b:array[1..250000]of byte; 
03.f,g:text; 
04.n:integer; 
05.m,min,max,i,j:longint; 
06.begin
07.assign(f,'numere.in'); 
08.assign(g,'numere.out'); 
09.reset(f); 
10.rewrite(g); 
11.readln(f,n); 
12.m:=sqr(n); 
13.for i:=1 to n do
14.        
for j:=1 to n do
15.                
if j=n then readln(f,a[i][j]) 
16.                        
else read(f,a[i][j]); 
17.for i:=1 to m do b[i]:=0; 
18.for i:=1 to n do
19.        
for j:=1 to n do
20.                
if a[i][j]>0 then b[a[i][j]]:=1; 
21.min:=250000; 
22.max:=0; 
23.for i:=1 to m do
24.        
if b[i]<1 then
25.        
begin
26.        
if min>i then min:=i; 
27.        
if max<i then max:=i; 
28.        
end; 
29.write(g,min,' ',max); 
30.close(f); 
31.close(g); 
32.end.