program ed;</br>
uses crt;</br>
var a:array[1..20,1..20] of integer;</br>
i,j,n,m:integer;</br>
Begin
writeln('vvedi razmernost');</br>
readln(n,m);</br>
randomize;</br>
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10-3);</br>
i:=0;</br>
repeat inc(i);</br>
j:=-1;</br>
while (j<=m) and (a[i,j]>=0) do inc(j);</br>
until (i=n) or (j>m);</br>
write('v stroke:');</br>
if j> m then writeln(j)
        else writeln('net');</br>

j:=0;</br>
repeat inc(j);</br>
i:=1;</br>
while (i<=n) and (a[i,j]>=0) do inc(i);</br>
until (j=m) or (i>n);</br>
write('v stolbce:');</br>
if i> n then writeln(i)
        else writeln('net');</br>
readln;</br>
End.