1
program
zer0;
2
uses
mtx09;
3
var
m: mtx;
4
begin
5
tra;
6
zer(m,
3
,
2
)
7
end
.
8
{
9
# zer [3,2]
10
0 0
11
0 0
12
0 0
13
14
}