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