1
program
equrxmn;
2
uses
mtx09;
3
var
a:mtx;
4
begin
5
tra;
6
equ(a,
1.0
/
3.0
,
2
,
3
)
7
end
.
8
{
9
# equ [2,3]
10
0.333333 0.333333 0.333333
11
0.333333 0.333333 0.333333
12
13
}