1 program dvd_rab1;
2 uses mtx09;
3 var r0, m1, m2: mtx;
4 begin
5 tra;
6 equ(m1,'1,2,3;4,5,6');
7 equ(m2,'3,2,1;6,5,4');
8 dvd(r0,m1,m2);
9 end.
10 {
11 # equ [2,3]
12 1 2 3
13 4 5 6
14
15 # equ [2,3]
16 3 2 1
17 6 5 4
18
19 # dvd [2,3] [2,3] [2,3]
20 0.333333 1 3
21 0.666667 1 1.50000
22
23 }