%Escribir una función expresar_como_suma que dado un número entero x devuelva dos
%enteros primos a y b tal que x = a+b. De no existir a y b que cumplan tal propiedad, la función
%debe devolver a y b en -1.
function [a,b]=expresar_como_suma(x)
  vaux=listar_primos(1,x);
  a=-1;b=-1;
  for i=1:length(vaux)
    for c=1:length(vaux)
      if vaux(i)+vaux(c) == x
        a=vaux(i);b=vaux(c);
      endif
    endfor
  endfor
endfunction