- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
for li:=LL-2 downto 1 do
begin
ag:=ml_(a[li], m_(gen(len(a[li]), 1, 1), a[li]) );
cp(
b[li],
ml_(
ml(
t(W[li]),
from2(b[li+1], li <> LL-2)
)
,
ag
)
);
end;