1
program
lgn2;
2
uses
mtx09;
3
var
4
a: mtx;
5
begin
6
// a(1)=0... a(101)=100 (i.e. 100 segments)
7
lsp(a,
0.0
,
100.0
,
100
);
8
mwr(lgn(a,
20.1
,
25.1
))
9
end
.
10
{
11
21
12
22
13
23
14
24
15
25
16
17
}