1 program stk2;
2 uses mtx09;
3 var a, b: mtx;
4 begin
5 tra;
6 equ(a,'1 2 3; 4 5 6; 7 8 9; 10 11 12');
7 one(b,1,col(a));
8 mul(b, a);
9 stk(a,b)
10 end.
11 {
12 # equ [4,3]
13 1 2 3
14 4 5 6
15 7 8 9
16 10 11 12
17
18 # one [1,3]
19 1 1 1
20
21 # mul [1,3] [4,3]
22 280 880 1944
23
24 # stk [5,3] [4,3] [1,3]
25 1 2 3
26 4 5 6
27 7 8 9
28 10 11 12
29 280 880 1944
30
31 }