12.25 (Винарский)
program t_12_25(input,output);

function formula: integer;
var c,a,b :char; x,y : integer;
begin
    read(c);
        if (c>='0') and (c<='9') then
            formula:=ord(c)-ord('0')
        else begin {c='('}
                x:=formula;
        read(a);
        y:=formula;
        case a of
        '+' : formula:=x+y;
        '-' : formula:=x-y;
        '*' : formula:=x*y;
    end;
read(c); {c=')'}
end;
end;

Begin
        writeln(Formula);
End.