1
program
lsp1;
2
uses
mtx09;
3
var
m:mtx;
4
begin
5
zer(m,
5
,
2
);
6
lsp(col(m,
1
),
0.0
,
1.0
);
7
mwr(m)
8
end
.
9
{
10
0 0
11
0.250000 0
12
0.500000 0
13
0.750000 0
14
1 0
15
16
}