Hola, no entiendo la solución que publicaron del ejercicio.
Me gustaría saber si esta bien mi versión, si alguien lo ve le agradezco
procedure suma1 (VAR L: LBin);
VAR
iter: Lbin;
dec: cardinal;
BEGIN
dec:= BinADec(L)+1; (*binadec parte a del ej);
iter:= L;
while iter<>nil and dec>0 do
iter^.dato:= dec MOD 2;
dec:= dec DIV 2;
iter:= iter^.sig;
end;
WHILE dec>0 do (* por si hay que agregar mas elementos*)
new(iter);
iter^.dato:= dec mod 2;
iter^.sig:= nil;
dec:= dec div 2
end;
return L
End Suma1;