表达式求值

前言
“北有玄武盾，南有雀攻法，东有青龙唾，西有虎焰击，中有沙婆星，层层设备，步步为营。 ”欢迎来到嘟嘟课堂，今天，嘟嘟老师讲一道关于栈的题——表达式求值。
题目描述
给定一个只包含加法和乘法的算术表达式，请你编程计算表达式的值。
输入
输入文件为expr.in。
输入仅有一行，为需要你计算的表达式，表达式中只包含数字、加法运算符“+”和乘法运算符“”，且没有括号，所有参与运算的数字均为0 到231-1 之间的整数。输入数据保证这一行只有0~ 9、+、*这12 种字符。
输出
输出文件名为expr.out。
输出只有一行，包含一个整数，表示这个表达式的值。注意：当答案长度多于4 位时，请只输出最后4 位，前导0 不输出。
样例输入1
1+1*3+4
样例输出1
8
样例输入2
1+1234567890*1
样例输出2
7891
样例输入3
1+1000000003*1
样例输出3
4
样例说明
样例 1计算 的结果 为 8， 直接输出 8。
样例 2计算 的结果为1234567891 ，输出后 4位，即 7891 。
样例 3计算的结果为 1000000004 ，输出后 4位，即 4。
数据范围限制
对于 30% 的数据， 0≤表达式中加法 运算 符和乘法 运算 符的总数 ≤100 ；
对于 80% 的数据， 0≤表达式中加法 运算 符和乘法运算 符的总数 ≤1000 ；
对于 100% 的数据， 0≤表达式中加法 运算 符和乘法运算 符的总数 ≤100000。
思路
此题我们可以用暴力来搞，但是会很复杂。这时候我们就想到了栈。栈是一种数据结构，像树、队列一样。栈也有个特点，就是只能先进先出，每次出栈只能从栈顶元素开始。那么这道题却很符合栈的性质。我们一个一个字符读入，如果这个字符是+,那么我们就把加好存进b数组里；如果这个字符是数字，那就将这个数字存入a数组里；如果这个字符是*，那么就将乘号两边的数相乘，变成一个值。最后将所有数相加，输出后四位就行了。
代码就在下面哦，有的童鞋是不是迫不及待呢?
代码

var
        a:array[0..1000001] of longint;
        b:array[0..1000001] of char;
        i,j,k,n,l:longint;
        m,ans:int64;
        s:ansistring;
        ch:char;
begin
        assign(input,'expr.in');reset(input);
        assign(output,'expr.out');rewrite(output);
        repeat
                read(ch);
                case ch of
                        '0'..'9':s:=s+ch;
                        '+':begin
                                delete(s,1,length(s)-4);
                                val(s,m);
                                inc(n);
                                s:='';
                                a[n]:=m;
                                b[n]:='+';
                        end;
                        '*':begin
                                delete(s,1,length(s)-4);
                                val(s,m);
                                inc(n);
                                s:='';
                                a[n]:=m;
                                b[n]:='*';
                        end;
                end;
        until eoln;
        delete(s,1,length(s)-4);
        val(s,m);
        inc(n);
        a[n]:=m;
        b[0]:='+';
        b[n]:='+';
        while i<n do
        begin
                inc(i);
                if b[i]='*' then l:=i;
                while (b[i]='*') do
                begin
                        inc(i);
                        a[l]:=(a[l]*a[i]) mod 10000;
                        a[i]:=0;
                end;
        end;
        for i:=1 to n do
                ans:=(ans+a[i]) mod 10000;
        writeln(ans);
        close(input);
        close(output);
end.