Program Gia_tri_da_thuc;
Var S,a,x: real;
n,i: byte;
Begin
Write(‘Nhap bac cua da thuc. n = ‘); Readln(n);
Write(‘Tinh f(x) tai x = ‘);Readln(x);
S:=0;
For i:= n downto 0 do
Begin
Write(‘a’,i,’=’);Readln(a);
S:=(S+a)*x;
End;
Write(‘f(‘,x:3:1,’)=’,S:5:1);
Readln
End.