unit lll;
interface
 const m=4; n=3;
type
ind=1..n; ind1=1..m;
vect=array[ind1] of real;
matr=array[ind1] of vect;
procedure dl(k:ind1; col:ind; p:word; var ms:matr);
implementation
procedure dl;
var
i:ind1;
begin
for i:=1 to k do
ms[i,col]:=ms[i,col]/p;
end;
begin
end.