program mnohoclen;

var vysledek, vstup, x, xmon : real;
    i : integer;
begin
 vysledek:=0;
 xmon:=1;
 Write('Zadej x:');
 ReadLn(x);
 for i:=0 to 10 do
  begin
  Write('Zadej a',i,': ');
  readln(vstup);
  vysledek:=vysledek + (vstup * xmon);
  xmon:= xmon*x;
  end;

  WriteLn('Vysledek je: ',vysledek:0:4);

end.