。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。

没有优先级和括号的行不行啊（还没有学到我只能这样了）

var
  tot,l,m,n,g,h,i,j,k:longint;
  code:integer;
  s,a,b:string;

procedure sz;
begin
  a:='';
  while (s[k] in ['0'..'9']) do begin
    a:=a+s[k];
    inc(k);
  end;
  val(a,n,code);
end;

procedure cal;
begin
  sz;
  l:=k;
  inc(k);
  sz;
  case s[l] of
    '+':m:=m+n;
    '-':m:=m-n;
    '*':m:=m*n;
    '/':m:=m div n;
  end;
end;

begin
  readln(s);
  k:=1;
  sz; m:=n;
  while k<=length(s) do
    cal;
  writeln('=',m);
  readln;
end.