code 31040;
     real procedure POL(N,X,A);
     value N,X;integer N;real X;array A;
     begin real R;
        R:= 0;
        for N:= N step -1 until 0 do 
        R:=R*X  + A[N];
        POL:= R
     end POL

        eop