function intercalar( var a,b,c:cnumeronatural):integer;
var pos:integer;
tamanomaximo: Integer;
begin
if a.numerodigitos > b.numerodigitos then
tamanomaximo := a.numerodigitos
else
tamanomaximo := b.numerodigitos;
pos:=1;
while pos <= tamanomaximo do
begin
if a.numerodigitos >= Pos then
c.asignarvalor((c.obtenervalor * 10) + a.Digito(POS));
if b.numerodigitos >= Pos then
c.asignarvalor((c.obtenervalor * 10) + b.Digito(POS));
pos:=pos+1;
end;
end;