{Feladat : Polinom helyettes�t�si �rt�k�nek kisz�m�t�sa Horner s�m�val}
program Horner;

uses crt;

Const MaxEgyutth=10;

var egyutthatok:array [0..MaxEgyutth] of real;
    n : integer;
    i : integer;
    c : char;
    x : real;

procedure Egyutthatok_bekerese;
begin
 clrscr;
 repeat
  write('Polinom foksz�ma (0-',MaxEgyutth,'):');
  readln(n);
 until (n>=0) and (n<=MaxEgyutth);
 for i:=0 to n do
 begin
  write(i,'. egy�tthat� :');
  readln(egyutthatok[i]);
 end;
end;

function rek(k:integer) : real;
begin
 if k=n then rek:=egyutthatok[n]
 else rek := egyutthatok[k]+x*rek(k+1);
end;

function kiszamol : real;
begin
 kiszamol := rek(0);
end;

procedure Helyek;
begin
 c:='i';
 repeat
  writeln;
  write('x:=');
  readln(x);
  writeln('p(',x:2:2,'):=',kiszamol:2:2);
  writeln;
  write('Akar ujabb �rt�ket sz�molni (i/n) ?');
  readln(c);
  c:=upcase(c);
 until c='N';
end;

begin
 Egyutthatok_bekerese;
 Helyek;
{writeln(kiszamol);}
end.