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

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.

 

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