program calculadora;

var 
	entero, operacion : integer;
	caracter: char;

begin

	read(entero);
	operacion := entero;

	repeat
	
		read(caracter)
	
	until caracter <> ' ';
	
	while caracter <> '=' do

	begin
			
		read(entero);

		case caracter of
			
			'*' : operacion := operacion * entero;
			'+' : operacion := operacion + entero;
			'/' : operacion := operacion DIV entero;
			'-' : operacion := operacion - entero;
		
		end;

		repeat
	
			read(caracter)
		
		until caracter <> ' ';

	end;
	
	write(operacion)

end.