1 program dvd_ab;
2 uses mtx09;
3 var a, b: mtx;
4 begin
5 tra;
6 equ(a,'10;20');
7 equ(b,'1 2 3; 4 5 6');
8 dvd(a,b);
9 dvd(b,a)
10 end.
11 {
12 # equ [2,1]
13 10
14 20
15
16 # equ [2,3]
17 1 2 3
18 4 5 6
19
20 # dvd [2,1] [2,3]
21 1.66667
22 0.166667
23
24 # dvd [2,3] [2,1]
25 0.600000 1.20000 1.80000
26 24 30 36
27
28 }