1 program nam_a;
   2 uses mtx09;
   3 var a:mtx; s:string;
   4 begin
   5   tra;
   6   equ(a,'1 2 3');
   7   nam(a,'A');
   8   mwr(a);
   9   s := nam(a);
  10   mwr(s)
  11 end.
  12 {
  13 # equ [1,3]
  14 1   2   3
  15 
  16 A
  17 1   2   3
  18 
  19 A
  20 }