1 program eye0;
   2 uses mtx09;
   3 var
   4   a, b: mtx;
   5 begin
   6   tra;
   7   eye(a,2,4);
   8   equ(b,'1 2; 3 4; 5 6');
   9   eye(a,b)
  10 end.
  11 {
  12 # eye [2,4]
  13 1   0   0   0
  14 0   1   0   0
  15 
  16 # equ [3,2]
  17 1   2
  18 3   4
  19 5   6
  20 
  21 # eye [3,2]
  22 1   0
  23 0   1
  24 0   0
  25 
  26 }