1 program elm2;
   2 uses mtx09;
   3 var
   4   a: mtx;
   5 begin
   6   zer(a,2,3); // a = zeros(2,3)
   7   elm(dia(a),1.0);
   8   mwr(a);
   9   eye(a,2,3); // a = eye(2,3)
  10   mwr(a);
  11   elm(col(a,col(a)),-1.0); // a(:,$)=-1
  12   mwr(a)
  13 end.
  14 {
  15 1   0   0
  16 0   1   0
  17 
  18 1   0   0
  19 0   1   0
  20 
  21 1   0   -1
  22 0   1   -1
  23 
  24 }