program mde;
uses crt;
CONST M=4; N=4;
VAR a,b:array[1..M,1..N] of integer;
cas,z,q,i,x,j,y:integer;
begin
clrscr; randomize;
for i:=1 to M do
for j:=1 to N do
begin
x:=random(20);
a[i,j]:=x;
end;
y:=8;
for i:=1 to M do
begin
for j:=1 to N do
begin
case j of
1:x:=15...