program mn;<br/>
uses crt;<br/>
var a:array[1..100,1..100]of integer;<br/>
    n,z,m,i,j,k,polt,polb:integer;<br/>
    s:string;<br/>
BEGIN<br/>
ClrScr;<br/>
Write('N:');<br/>
readln(n);<br/>
randomize;<br/>
for i:=n downto 1 do<br/>
for j:=n downto 1 do<br/>
a[i,j]:=random(40)-15;<br/>
for i:=1 to n do<br/>
begin<br/>
for j:=1 to n do<br/>
write(a[i,j]:4);<br/>
writeln;<br/>
end;<br/>
s:='net';<br/>
for i:=1 to n do<br/>
begin<br/>
for j:=1 to n do<br/>
if a[i,j]>0 then inc(polt);<br/>

if (polt=n)or(polb=n)and(s='net')<br/>
then s:='da';<br/>
end;<br/>
writeln(s);<br/>
readln;<br/>
END.<br/>