1
program
tra_0;
2
uses
mtx09;
3
var
a:mtx;
4
begin
5
tra;
6
equ(a,
'1 2 3'
);
7
tra(
false
);
8
equ(a,
'4 5 6'
);
9
tra(
true
);
10
equ(a,
'7 8 9'
)
11
end
.
12
{
13
# equ [1,3]
14
1 2 3
15
16
# equ [1,3]
17
7 8 9
18
19
}