Представить коэффициенты многочлена в виде простого однонаправленных списка

type
  tList = class
    a : Real;
    n : tList;
    
    constructor Create(index : Integer; next : tList);
    begin
      a := ReadLnReal('a' + index.toString + ' =');
      n := next;
    end;
    
    function Find(x : Real) : Real;
    var t : tList;
    begin
      Result := 0;
      t := Self;
      while t <> nil do
        begin
          Result := Result*x + t.a;
          t := t.n;
        end;
    end;
  end;
  
 var
   a : tList;
   
 begin
   var n := ReadInteger('n =');
   a := nil;
   for var i := 0 to n do
     a := tList.Create(i, a);
     
   var x := ReadReal('x =');
   WriteLn('F(', x, ') = ', a.Find(x));
 end.

type
  tList = class
    a : Real;
    n : tList;
    
    constructor Create(index : Integer; next : tList);
    begin
      Write('a' + index.toString + ' =');
      a := ReadlnReal();
      n := next;
    end;
    
    function Find(x : Real) : Real;
    var t : tList;
    begin
      Result := 0;
      t := Self;
      while t <> nil do
        begin
          Result := Result*x + t.a;
          t := t.n;
        end;
    end;
  end;
  
 var
   a : tList;
   
 begin
   Write('n =');
   var n := ReadInteger();
   a := nil;
   for var i := 0 to n do
     a := tList.Create(i, a);
     
   Write('x =');
   var x := ReadReal();
   WriteLn('F(', x, ') = ', a.Find(x));
 end.