Многочлен Р(х) можно представить в виде списка, определить следующие процедуры

function inputPolinom(n : Integer) : array of Integer;
begin
  WriteLn('Введите целые коэффициенты полнома:');
  SetLength(Result , n+1);
  for var i := 0 to n do
    Result[i] := ReadLnInteger('[' + i.toString + '] =');
end;
 
procedure outPolinom(msg : String; p : array of Integer);
begin
  Write(msg); for var i := p.Length-1 downto 1 do Print(p[i].ToString + '·x^' + i.ToString + ' +');
  WriteLn(p[0]);
end;
 
procedure add(p, q : array of Integer; var r : array of Integer);
begin
  SetLength(r, p.Length);
  for var i := 0 to p.Length-1 do
    r[i] := p[i] + q[i];
end;
 
procedure findPolinom(msg : String; p : array of Integer; x : Real);
begin
  var res := 0.0;
  var xpow := 1.0;
  for var i := 0 to p.Length-1 do
    begin
      res += p[i] * xpow;
      xpow *= x;
    end;
  Write(msg, '(', x, ') = ', res);
end;
 
begin
  WriteLn('===== Полином p =====');
  var p := inputPolinom(ReadLnInteger('Размер полинома p: n ='));
  outPolinom('Полином p(x) = ', p);
  
  WriteLn('===== Полином q =====');
  var q := inputPolinom(p.Length-1);
  outPolinom('Полином q(x) = ', q);
  
  WriteLn('===== Полином r =====');
  var r : array of Integer;
  add(p, q, r);
  outPolinom('Полином r(x) = ', r);
  
  WriteLn('===== Значение полинома p =====');
  findPolinom('Значение p', p, ReadLnReal('x = '));
end.

procedure outPolinomA(msg : String; p : array of Integer);
begin
  var S := '';
  for var i := p.Length-1 downto 1 do
    if S.Length = 0 then
      S := p[i].ToString + '·x'
    else
      S := '(' + S + ' + ' + p[i].ToString + ')·x';
  S := S + ' + ' + p[0].ToString;
  WriteLn(S);
end;