Даны значения массива {аi}, i = 0, ..., 10 и переменной х. Составьте программу вычисления алгебраического многочлена 10-й степени по формуле Горнера:

program pifagor; uses crt; const n=10; var  x,y: integer; begin  writeln('********************************************************');   writeln('*                                              pifagor                                            *');   writeln('*                                  (таблица умножения)                                *');   writeln('********************************************************');   write('*      * ');   for y: =1 to n do      begin          write(y: 2);           if y< n then write(' | ')          else          writeln(' * ');       end;   writeln('********************************************************');   for x: =1 to n do      begin          write('* ',x: 2, ' * ');           for y: =1 to n do                begin                  write(x*y: 2);                   if y< n then write(' | ')              end;               if x*y< 100 then writeln(' * ')                                    else writeln('* ');               if x< 10 then writeln('++')                              else writeln('********************************************************');       end; end.