program p3_3; const n0=30; var s1:array[1..n0]of integer; s2:array[1..n0]of char; t1,t2:integer; procedure calcu; var x1,x2,x:integer; p:char; begin p:=s2[t2];t2:=t2-1; x2:=s1[t1];t1:=t1-1; x1:=s1[t1];t1:=t1-1; case p of '+':x:=x1+x2; '-':x:=x1-x2; '*':x:=x1*x2; '/':x:=x1 div x2; end; ...