Uses
CRT;
var
a:array[1..100,1..100] of integer;
i,j,n,m,k:integer;
w:boolean;
begin
read(n,m);
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=((-10)+random(20));
write(a[i,j]:3);
end;
writeln;
end;
writeln;
w:=false;
for i:=1 to n do
Begin
k:=0;
For j:=1 To m Do
If a[i,j]<0 Then
begin
Inc(k);
end;
if k=2 then w:=true;
end;
if w then writeln('Åñòü.')
else
writeln('Íåò');
readln;
end.