var X: array[1..4,1..5] of Integer;
Y: array[1..4,1..5] of Integer;
i,j: Byte;
slychai: Byte;
begin
Randomize;
slychai :=0;
for i := 1 to 4 do
begin
for j := 1 to 5 do
begin
X[i,j]:= Random(10)-10;
write(X[i,j]:4);
end;
Writeln;
end;
Writeln;
for i := 1 to 4 do
begin
for j := 1 to 5 do
begin
Y[i,j]:= Random(10)-10;
if X[i,j]<=Y[i,j] then Inc(slychai);
write(Y[i,j]:4);
end;
Writeln;
end;
Writeln;
Writeln(slychai);
Readln;
End.