Рекурсия Опции

[Alex J'Root]

Помогите с одной задачей:

Написать программу, которая по заданной "Сумме" вычисляет и выводит значение этой суммы.

<Сумма>::=<Целое>|(<Cумма><Знак_операции><Целое>)
<Целое>::=<Цифра>{<Цифра>}
<Знак_операции>::=+|-

Пример правильной "суммы": 24; 34+45; 7-121+32.

[volvo]

Что это было?

function strtoint(s: string): integer;
var X, err: integer;
begin
  val(s, X, err);
  strtoint := X;
end;

function sum(s: string): integer;
var i: integer;
begin
  if pos('-', s) + pos('+', s) = 0 then sum := strtoint(s)
  else begin
    i := length(s);
    while not (s[i] in ['+', '-']) do dec(i);
    case s[i] of
      '+': sum := sum(copy(s, 1, i - 1)) + strtoint(copy(s, i + 1, 255));
      '-': sum := sum(copy(s, 1, i - 1)) - strtoint(copy(s, i + 1, 255));
    end;
  end;
end;


begin
  writeln(sum('24+21-16'));
  writeln(sum('7-121+32'));
  writeln(sum('24'));
end.