Код программы

program Lab4;

uses SysUtils;

const n=5;

var x,xst,Polinom:real;

i:integer;

a: array[1..n] of integer;

begin

writeln('Vvedite x');

readln(xst);

x:=1;

Polinom:=0;

writeln('Vvedite koefficienti polinoma a(i):');

for i:=1 to n do

readln(a[i]);

for i:=n downto 1 do

begin

Polinom:=Polinom+a[i]*x;

x:=x*xst

end;

Polinom:=Polinom+x;

writeln('Znachenie polinoma ravno:', Polinom:8:3);

readln;

end.

Пример работы программы