Cambio de Dolares

Escribir "ingresar tipo de moneda";
Escribir "1.-Q";
Leer opcion;
Escribir "2.-$";
Leer opcion;
Segun opcion Hacer
1:
Escribir " cantidad en quetzales";
Leer q;
Q<-q/7.98;
Escribir "dolares",Q;
2:
Escribir "ingrese la cantidad en dolares";
Leer d; D<-d*7.98;
Escribir "quetzales",
D;
FinSegun
FinProceso