Operatii cu liste



program liste
const nrmax100
type indice0..nrmax
listaarrayindice of integer
var l1,l2,l3lista
poz1,poz2,m,nindice
xinteger
procedure citirevar llistapindice
var iindice
begin
writelndati elementele listei
for i1 to p do begin writeelementul ,i, este readlnli
end
end
procedure scrierevar llistapindice
var iindice
begin
for i1 to p do writeli,
end
procedure stergerevar llistap,pozindice
var iindice
begin
for ipoz to p-1 do lili1
pp-1
end
procedure concatenarea,blistavar llista
var iindice
begin
for i1 to m do liai
for im1 to mn do libi-m
end
procedure inserarevar llistap,pozindiceeinteger
var iinteger
begin
for ip downto poz do li1li
lpoze
pp1
end
begin
m0n0
writedati lungimea...