1 program stk1;
   2 uses mtx09;
   3 var
   4 a, b, r: mtx;
   5 begin
   6   tra;
   7   equ(a,'1 2 3; 4 5 6');
   8   zer(b,lgn(a,1));
   9   add(b,a);
  10   stk(r,a,b);
  11   dvd(r,b);
  12   mul(r,100.0)
  13 end.
  14 {
  15 # equ [2,3]
  16 1   2   3
  17 4   5   6
  18 
  19 # zer [1,3] [1,3]
  20 0   0   0
  21 
  22 # add [1,3] [2,3]
  23 5   7   9
  24 
  25 # stk [3,3] [2,3] [1,3]
  26 1   2   3
  27 4   5   6
  28 5   7   9
  29 
  30 # dvd [3,3] [1,3]
  31 0.200000   0.285714   0.333333
  32 0.800000   0.714286   0.666667
  33 1   1   1
  34 
  35 # mul [3,3]
  36 20   28.5714   33.3333
  37 80   71.4286   66.6667
  38 100   100   100
  39 
  40 }