var mat:array[0..10,0..10] of integer;
count:integer;
function find:String;
var i,j:integer;
begin
//for i := 0 to mm-1 do
for j := 0 to 9 do
if (mat[j,0]<=mat[j+1,0]) and (mat[0,j]<=mat[0,j+1]) then inc(count,2); //writeln(mat[j,0],' ',mat[0,j]);
end;
var 
i:integer;
begin
randomize;
for I:=0 to 10 do
begin
mat[0,i]:=random(20);
mat[i,0]:=random(20);
writeln(mat[i,0],' ',mat[0,i]);
end;
writeln('--------');
find;
writeln('Строк: ',count);
end.