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