{ Keszitette: Erdei Szabolcs 1997. erdeisz@dragon.klte.hu      }
program horner;
uses crt;
const maxpolfok=100;
var egyuth, negy : array [0..maxpolfok] of real;
    polfok : byte;
    i : word;
    cert : real;
begin
clrscr;
writeln;writeln;writeln;
write('Hanyadfoku legyen a polinom: '); readln(polfok);
writeln;
writeln('Add meg az egyutthatokat!');
for i:=0 to polfok do
         begin
         write('x^',i,' egyutthatoja : '); readln(egyuth[polfok-i]);
         end;
writeln;
write('Add meg a keresett erteket: ');
readln(cert);
{szamolas}
negy[0]:=egyuth[0];
for i:=1 to polfok do
         begin
         negy[i]:=egyuth[i]+cert*negy[i-1];
         end;
writeln;writeln;writeln;
write('A behelyettesitesi ertek : ', negy[polfok]:5:2);
readkey;
end.