1 program dia0;
2 uses mtx09;
3 var a:mtx;
4 begin
5 tra;
6 equ(a,'1 2 3; 4 5 6');
7 mwr(dia(a));
8 elm(dia(a),'-1,-2');
9 mwr(a)
10 end.
11 {
12 # equ [2,3]
13 1 2 3
14 4 5 6
15
16 1 5
17
18 # elm(mtx,string) [1,2]
19 -1 -2
20
21 -1 2 3
22 4 -2 6
23
24 }