Вычисление функции, двусвязный список

 type
 
 PUzel = ^S;
 
 S = record
 x: real;
 next, pred: PUzel;
 end;
 
 var head: PUzel; n: integer;
 
 {вставка узла p в голову f}
 procedure AddFirst(var f, p: PUzel);
 begin
  p^.next := f;
   if (f <> nil) then f^.pred := p;
  f := p;
 end;
 
 {вставка узла a после заданного узла old}
 procedure AddAfter(var old: PUzel; a: PUzel);
 begin
  a^.next := old^.next;
   if (a^.next <> nil) then a^.next^.pred := a;
  a^.pred := old; 
 end;
 
 {создание списка}
 procedure BuildSpisok(var f: PUzel; var n: integer);
  var a {указатель на создаваемый узел},
  d {указатель на хвост}: PUzel;
  i: integer; y: real;
 begin
  f := nil;
  new(a);
  write('введите n ');
  readln(n);
  for i := 1 to n do 
   begin
   write('введите число ');
    readln(y);
    a^.x := y;
    if (f = nil) then 
    begin
    AddFirst(f, a); d := f;
    end else
    begin
    AddAfter(d, a); d := a;
    end;
   end;
 end;

type
  tList = class
    v : Real;
    p, x : tList;
    
    constructor (n : Integer);
      begin v := ReadLnReal($'Введите {n} значение:'); p := nil; x := nil; end;
      
    constructor (p_ : tList; n : Integer);
      begin v := ReadLnReal($'Введите {n} значение:'); p := p_; x := nil; end;
     
  end;
  
function BuildList(n : Integer) : tList;
begin
  Result := New tList(1); var cur := Result;
  for var i := 2 to n do begin cur.x := New tList(cur, i); cur := cur.x; end;
end;
  
procedure OutList(List : tList; msg : String := '');
begin
  msg.Print; while List <> nil do begin List.v.Print; List := List.x; end; WriteLn;
end;
 
function CalcList(List : tList) : Real;
begin
  Result := 1;
  var(x1,x2,x3):=(List,List.x,List); while x3.x <> nil do x3 := x3.x;
  while x2 <> nil do
    begin
      Result *= (x1.v + x2.v + 2*x3.v);
      (x1,x2,x3) := (x1.x,x2.x,x3.p);
    end;
end;
 
begin
  var n := ReadInteger('n ='); if n < 2 then begin 'n не менее 2!'.Println; Halt; end;
  var List := BuildList(n);
  OutList(List, 'Введён список:');
  $'Результат = {CalcList(List)}'.Println;
end.

begin
  var l := new LinkedList<integer>;
  
  loop ReadInteger do
    l.AddLast(ReadInteger);
  
  l.Pairwise
  .Pairwise((t1,t2)->real(t1[0]+t1[1]+t2[1]))
  .Product.Println;
  
end.

function CalcExpr(l: LinkedList<integer>): BigInteger;
begin
  Result := 1;
  var n1 := l.First;
  var n2 := l.Last;
  loop l.Count-1 do
  begin
    var curr: BigInteger;
    
    curr += n1.Value;
    n1 := n1.Next;
    curr += n1.Value;
    curr += 2*n2.Value;
    n2 := n2.Previous;
    
    Result *= curr;
  end;
end;
 
begin
  var l := new LinkedList<integer>;
  
  loop ReadInteger do
    l.AddLast(ReadInteger);
  
  CalcExpr(l).Println;
end.