Используя рекурсию, вычислить результат арифметического выражения???

[Nataly026]

Используя рекурсию, вычислить результат арифметического выражения, в состав которого входят целые числа и знаки "+" и "-". Выражение вводится посимвольно, признак конца ввода "=".

[spein]

var
result,a:integer;
action:char;
begin
while(action <> '=') do begin
if(action = '-') then
 result:=result - a
else if action = '+' then
 result:=result + a;
write('Type action type -,+,= :');
readln(action);
if (action='-') or (action='+') then begin
write('Type numeric val: ');
readln(a);
end;
end;
writeln('Result is: ', result);
end.

[Nataly026]

Спасибо! Но я не поняла с рекурсией? Должна быть вложеная подпрограмма?

[spein]

Ну можно сделать и рекурсией. Но это не рационально...
Прошу прощения, но нету желания писать рекурсию.

[Nataly026]

Спасибо за искренность! Я тоже не понимаю зачем это надо и каким образом? Поэтому и написала...