Resuelve con procedimiento

espero y te sirva amigo.......................................