1
program
mwr0;
2
uses
mtx09;
3
var
a:mtx;
4
begin
5
equ(a,
'1,2,3;4,5,6;'
);
6
mwr(a);
7
end
.
8
{
9
1 2 3
10
4 5 6
11
12
}