Unnamed

uses crt;
var n,k: integer;
    x,y: real;
begin
    clrscr;
    writeln('Введите порядок полинома');
    read(n);
    writeln;
    writeln('Введите x');
    read(x);
    writeln;
    const A:array[1..6] of real=( 0.85, -1, 14.218, 0.2, -11.77, 17.21 );
     y:=A[1];
     for k:=1 to n do
     y:=y*x+A[k];
    writeln;
    writeln(' Значение полинома = ',y:6:3);
    readkey
end.