with text_io; use text_io;
package body simbolos1 is
  function operar (o1,o2:in integer; op:in character) return integer is
  begin
    case op is
	  when '+' => return o1+o2;
	  when '-' => return o1-o2;
	  when '*' => return o1*o2;
	  when '/' => return o1/o2;
	  when others => return 0;
	end case;
  end operar;
  procedure siguienteSimbolo (s:in out simbolo) is
    c:character;
  begin
    get(c);
	case c is
	  when '.' => s:=(clase => final);
	  when '+' | '-' | '*' | '/' => s:=(esOperador,c);
	  when others => s:=(esOperando,character'pos(c)-character'pos('0'));
	end case;
  end siguienteSimbolo;
end simbolos1;