застрял на этом вопросе​

Извини но я не могу те

1. решается с стека (алгоритм дейкстры для обработки обратной польской записи). предполагается, что во вводимой строке содержится корректное выражение, удовлетворяющее условиям . // pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var w: =readlnstring.towords;   var st: =new stack < integer> ;   var r: =0;   foreach var t in w do       if t[1].isdigit then st.push(t.tointeger)       else begin           var a: =st.pop;           var b: =st.pop;           case t[1] of           '+': st.push(a+b);           '-': st.push(b-a);           '*': st.push(a*b)           end;       end;   writeln(st.pop)  end. контрольный пример 8 9 + 1 7 - * -102 2. крайне просто решается при регулярного выражения с рекурсией. фактически вводить количество шаров не нужно, поэтому после ввода оно отбрасывается. // pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   writeln(readlnstring.towords.skip(1).joinintostring('').           matchvalue('{2,}').length); end. контрольный пример 5 2 3 3 3 1 3