Представление многочлена в виде списка

type
  ParseException = class(Exception)
    constructor(text: string) :=
    inherited Create(text);
  end;
 
function ParseMonomial(s: string; minus: boolean): (real,real);
begin
  var args := s.Split(new string[]('x^','x'), System.StringSplitOptions.None);
  Result := (
    
    args[0]<>''?(
      minus?
      -args[0].ToReal:
      +args[0].ToReal
    ):1.0,
    
    args.Length=1?0.0:(
      args[1]<>''?
      args[1].ToReal:
      1.0
    )
    
  );
end;
 
function ParsePolynomial(self: sequence of char): sequence of (real,real); extensionmethod;
begin
  var sb := new StringBuilder;
  var minus := false;
  
  foreach var ch in self do
    if ( (ch='+') or (ch='-') ) and ( (sb.Length=0) or (sb[sb.Length-1]<>'^') ) then
    begin
      
      if sb.Length <> 0 then
      begin
        yield ParseMonomial(sb.ToString, minus);
        sb.Clear;
        minus := false;
      end;
      
      if ch='-' then minus := not minus;
    end else
      sb += ch;
  
  if sb.Length <> 0 then
    yield ParseMonomial(sb.ToString, minus);
end;
 
function PolynomialToString(self: sequence of (real,real)); extensionmethod :=
self.Select(t->$'{t[0]}x^{t[1]}')
.JoinIntoString('+')
.Replace('+-', '-');
 
begin
  try
    var s := ReadlnString('Введите выражение:').Remove(' ');
    
    if s.Length=0 then raise new ParseException('Строка выражения не может быть пустой!');
    
    var allowed_symbols := '+-.x^';
    foreach var ch in s do
    begin
      if ch.IsDigit then continue;
      if allowed_symbols.Contains(ch) then continue;
      raise new ParseException($'Неожиданный символ "{ch}" с кодом #{word(ch)}');
    end;
    
    var p :=
      s.ParsePolynomial
      .GroupBy(
        t->t[1],
        (key, vals)->(
          vals.Sum(t->t[0]),
          key
        )
      )
      .Where(t->t[0]<>0)
      .OrderByDescending(t->t[1])
      .ToList;
    
    writeln;
    writeln('Преобразованное выражение, со степенями по убыванию:');
    p.PolynomialToString.Println;
    
    writeln;
    foreach var x in Arr(-1, 0, 2) do
    begin
      Writeln($'Если x = {x}, то результат этого выражения будет:');
      p.Sum(t->t[0] * x**t[1]).Println;
    end;
    
    writeln;
    writeln('Производная этого выражения:');
    p.Select(t->(
      t[0] * t[1],
      t[1] - 1
    ))
    .Where(t->t[0]<>0)
    .PolynomialToString
    .Println;
    
  except
    on e: ParseException do
    begin
      writeln(e.Message);
      readln;
    end;
  end;
end.

begin
  var s := ReadlnString;
  var i := s.ToInteger;
  i.Print;
end.

  var i := s.ToInteger;

begin
  var s := ReadlnString;
  var i: integer;
  try
    i := s.ToInteger;
  except
    on my_e: System.FormatException do
    begin
      writeln('ошибка! вы ввели не целое число!');
      readln;
      halt;
    end;
  end;
  i.Print;
end.

type
  e1t = class(Exception)
    
    i: integer;
    
    constructor(i: integer);
    begin
      self.i := i;
    end;
    
  end;
 
begin
  try
    
    raise new e1t(5);
    
    writeln('это не выведет, потому что перед ним вызвано исключение');
    
  except
    on e: e1t do
      writeln($'получено исключение, i было {e.i}');
  end;
end.