function addition(var tete1:liste;var tete2:liste):liste;
  var p,q,a,s,t,tete:liste;
      i:integer;
begin
  p:=tete1;
  q:=tete2;
  tete:=nil;
  s:=tete;
  while (p^.suiv<>nil) do
  begin
    while(q^.suiv<>nil) do
    begin
      if (p^.exp=q^.exp) then begin
                                new(a);
                                a^.exp:=p^.exp;
                                a^.coff:=p^.coff+q^.coff;
                                if (tete=nil) then begin
                                                     tete:=a;
                                                     s:=a;
                                                   end
                                else begin
                                       s^.suiv:=tete;
                                       s:=a;
                                     end;
                              end;
      q:=q^.suiv;
    end;
    q:=tete2;
    p:=p^.suiv;
  end;
  t:=tete;
  p:=tete1;
  while (p^.suiv<>nil) do
  begin
    while(t^.suiv<>nil) do
    begin
      if (p^.exp=t^.exp) then begin
                                new(a);
                                a^.exp:=p^.exp;
                                a^.coff:=p^.coff+t^.coff;
                                if (tete=nil) then begin
                                                     tete:=a;
                                                     s:=a;
                                                   end
                                else begin
                                       s^.suiv:=tete;
                                       s:=a;
                                     end;
                              end;
      t:=t^.suiv;
    end;
    t:=tete2;
    p:=p^.suiv;
  end;
  addition:=tete;
end;