1 program stk2;
   2 uses mtx09;
   3 var a, b: mtx;
   4 begin
   5   tra;
   6   equ(a,'1 2 3; 4 5 6; 7 8 9; 10 11 12');
   7   one(b,1,col(a));
   8   mul(b, a);
   9   stk(a,b)
  10 end.
  11 {
  12 # equ [4,3]
  13 1   2   3
  14 4   5   6
  15 7   8   9
  16 10   11   12
  17 
  18 # one [1,3]
  19 1   1   1
  20 
  21 # mul [1,3] [4,3]
  22 280   880   1944
  23 
  24 # stk [5,3] [4,3] [1,3]
  25 1   2   3
  26 4   5   6
  27 7   8   9
  28 10   11   12
  29 280   880   1944
  30 
  31 }