1 program dvd_rab3;
2 uses mtx09;
3 var r, a, b: mtx;
4 begin
5 tra;
6 equ(a,'1,2,3;4,5,6');
7 equ(b,'10;20');
8 dvd(r,a,b);
9 dvd(r,b,a)
10 end.
11 {
12 # equ [2,3]
13 1 2 3
14 4 5 6
15
16 # equ [2,1]
17 10
18 20
19
20 # dvd [2,3] [2,3] [2,1]
21 0.100000 0.200000 0.300000
22 0.200000 0.250000 0.300000
23
24 # dvd [2,3] [2,1] [2,3]
25 10 5 3.33333
26 5 4 3.33333
27
28 }