function addition(tete1:liste; tete2:liste):liste;
  var a,s,t,tete:liste;
      tr:boolean;
begin
  tete:=nil; s:=tete; tr:=false;
  while(tete2<>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 tete:=a;
                                else s^.suiv:=tete;
                                s:=a;
                                tr:=true;
                              end;
      else begin
             new(a);
             a^.exp:=q^.exp;
             a^.coff:=q^.coff
             if (tete=nil) then tete:=a;
             else s^.suiv:=tete;
             s:=a;
           end;
      q:=q^.suiv;
    end;
    if (tr:=false) then begin
                          new(a);
                          a^.exp:=p^.exp;
                          a^.coff:=p^.coff;
                          s^.suiv:=a;
                          s:=a;
                        end;