uses crt;
const
     ASCII=[48..57];
var
   s,temp:string;
   i,f,l,code:integer;
   res:integer;
   d:byte;
begin
 write('Введите выражение -->');
 readln(s);
 temp:='';
 for i:=1 to length(s) do
  begin
   if (ord(s[i]) in ASCII) then temp:=temp+s[i];
   if not(ord(s[i]) in ASCII) or (i=length(s)) then
    begin
     if (i<length(s)) then
      begin
       case s[i] of
       '+':d:=1;
       '-':d:=2;
       '*':d:=3;
       '/':d:=4;
       end;
       val(temp,f,code);
       temp:='';
      end else
      val(temp,l,code);
    end;
  end;
 case d of
 1: res:=f+l;
 2: res:=f-l;
 3: res:=f*l;
 4: res:=f/l;
 end;
 writeln(res);
 readln
end.