Рекурсия

[Pavel143]

Необходимо вычислить значение выражения по формуле, задание 8, я так понимаю, что нужно читать цифры до знака, потом сам знак, потом второе число вызовом рекурсии, потом действие делаем, записываем в первое число и делаем то же самое, но я вообще без понятия как это сделать, есть только такой набросок на лк...

Function CountFunc: Integer;
Var
  c,op: Char;
  x,y: Integer;
Begin
  Read(c);
  If (c>='0') and (c<='9') then
    Result:=Ord(c)-Ord('0')
  else
  Begin
    x:=CountFunc;
    read(op);
    y:=CountFunc;
    case op of
      '+': Result:=x+y;
      '-': Result:=x-y;
      '*': Result:=x*y;
    End;
    Read(c);
  End
End;

Begin
  writeln(CountFunc);
  readln;
End.

[Arigato]

Первое, что нужно, это искать открывающиеся скобочки, дальше искать закрывающиеся с учетом вложенности и, выделив таким образом скобку, рекурсивно вычислять значение выражения внутри скобки.