(*$B- Algorithmus 4.1*)
PROGRAM horner;
VAR a,b: ARRAY[0..20] OF real;
    r,z : real; i,j,n: integer;

BEGIN
(*  writeln('n und a[0],...,a[n] eingeben');
  read(n); FOR i:=0 TO n DO read(a[i]); *)
  n:=4;
  a[0]:=93; a[1]:=-168; a[2]:=100; a[3]:=-24; a[4]:=2;
for j := 1 to 5 do
begin
  z :=j;
  b[n-1]:=a[n];
  FOR i:=n-1 DOWNTO 1 DO
    b[i-1]:=b[i]*z+a[i];
  r:= b[0]*z+a[0];

  writeln;
  FOR i:=n DOWNTO 0 DO write(a[i]:5:0);
  writeln;
  writeln('b[n-1],..,b[0]');
  FOR i:=n-1 DOWNTO 0 DO write(b[i]:5:0);
  writeln('  r=',r:5:2);
end
END.