1
program
nam_a;
2
uses
mtx09;
3
var
a:mtx; s:
string
;
4
begin
5
tra;
6
equ(a,
'1 2 3'
);
7
nam(a,
'A'
);
8
mwr(a);
9
s := nam(a);
10
mwr(s)
11
end
.
12
{
13
# equ [1,3]
14
1 2 3
15
16
A
17
1 2 3
18
19
A
20
}