Lanzamiento de un dado o 2 dados

Lanzamiento de un dado o 2 dados 

//Hecho por: Mario Castro Coello
Algoritmo Lanzamiento_de_dados_
Definir a Como Entero
a=1
Mientras a <> 0 Hacer
Escribir "Elige que opción deseas"
Escribir "1 = Girar un dado"
Escribir "2 = Girar dos dados"
Escribir "0 = Salir "
Leer a
si a=1 o a=0 o a=2 Entonces
si a = 1 Entonces
Escribir "Obtuvistes un: ",azar(6)+1
FinSi
si a = 2 Entonces
Escribir "Obtuvistes en un dado: ",azar(6)+1
Escribir "Obtuvistes en el otro dado: ",azar(6)+1
FinSi
si a = 0 Entonces
Escribir "Saliendo del programa"
FinSi
SiNo
Escribir "Ingrese una opción correcta"
FinSi
FinMientras
FinAlgoritmo