code 31058;
real procedure SUMORTPOLSYM(N,X,C,A);
value N,X; integer N; real X; array C,A;
if N=0 then SUMORTPOLSYM:=A[0] else 
begin 
     integer K; real H,R,S;
     R:=A[N]; S:=0;
     for K:=N-1 step -1 until 1 do 
     begin 
          H:=R;
          R:=A[K]+X*R+S;
          S:= -C[K]*H
     end;
     SUMORTPOLSYM:=A[0]+X*R+S
end SUMORTPOLSYM;
        eop