cambio de moneda Q $

Proceso sin_titulo
Escribir "elija la opcion que desee";
Escribir "1.-Q";
Leer opcion;Escribir "2.-$";
Leer opcion;
Segun opcion Hacer
1:
Escribir "ingrese la 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