Programa que pida un país centroamericano y muestre la capital de ese pais

Un programa que pida un país centroamericano y muestre la capital  de ese país. 

Solución:

Proceso capitales

Definir es, hond, guat, cost, pana, nic Como Caracter;

Definir pais, sc Como Caracter;

es<-"san salvador";

hond<-"tegucigalpa";

guat<-"guatemala";

cost<-"san jose";

pana<-"panama";

nic<-"managua";

Repetir

Escribir "ingrese pais";

Leer pais;

Si pais="el salvador" | pais="EL SALVADOR" | pais="El Salvador" | pais="elsalvador" | pais="ELSALVADOR" Entonces

Escribir "la capital es:", es;

Sino

si pais="honduras" | pais="HONDURAS" | pais="Honduras" Entonces

Escribir "la capital es:", hond;

Sino

si pais="guatemala" | pais="GUATEMALA" | pais="Guatemala"  Entonces

Escribir "la capital es:", guat;

Sino

si pais="costa rica" | pais="COSTA RICA" | pais="Costa Rica" | pais="costarica" | pais="COSTARICA"  Entonces

Escribir "la capital es:", cost;

Sino

si pais="panama" | pais="PANAMA" | pais="Panama" Entonces

Escribir "la capital es:", pana;

Sino

si pais="nicaragua" | pais="NICARAGUA" | pais="Nicaragua" Entonces

Escribir "la capital es:", nic;

FinSi

FinSi

FinSi

FinSi

FinSi

FinSi

Escribir "si desea continuar ingrese: si, sino, igrese: no";

Leer sc;

Hasta Que sc="no" | sc="NO"

FinProceso