1 program dvd_rap;
2 uses mtx09;
3 var r, a: mtx;
4 begin
5 tra;
6 equ(a,'1,2,3;4,5,6');
7 dvd(r,a,true);
8 dvd(r,a,false)
9 end.
10 {
11 # equ [2,3]
12 1 2 3
13 4 5 6
14
15 # dvd [1,3] [2,3]
16 0.250000 0.100000 0.0555556
17
18 # dvd [2,1] [2,3]
19 0.166667
20 0.00833333
21
22 }