Ejercicio Funvisis (sismos desde 1900 hasta nuestros días)

Proceso sin_titulo
fecha <-0;
Escribir "********************************************************************************";
Escribir "FUNVISIS";
Escribir "             SISTEMA INTERNO DE BUSQUEDA DE SISMOS EN VENEZUELA                 ";

Escribir "FECHAS DE SISMOS REGISTRADOS";
Escribir "1900";
Escribir "1932";
Escribir "1950";
Escribir "1956";
Escribir "1957";
Escribir "1959";
Escribir "1965";
Escribir "1966";
Escribir "1967";
Escribir "1968";
Escribir "1975";
Escribir "1980";
Escribir "1981";
Escribir "1989";
Escribir "1997";
Escribir "2001";
Escribir "2003";
Escribir "2009";
Escribir "2010";
Escribir "********************************************************************************";

Escribir "ESCRIBIR LA FECHA QUE DESEA CONSULTAR";
leer fecha;
Escribir "********************************************************************************";
Escribir "RESULTADO:";

Segun fecha Hacer
1900:
Escribir "07/06/1900 -Hora: 4:42 Zonas afectada: Casanay y Cariaco";
Escribir "29/10/1900 -Zonas afectada: Region Norcentral, Macuto, Caraballeda, Naiguata,Canenero, Higerote,Guarenas, Guatire y otros";
1932:
Escribir "14/03/1932 - Zonas afectadas: Andes meridionales, La Grita, Tovar, El Cobre, Seboruco, Pregonero, Rubio, San Pedro del Rio y otros";

1950:
Escribir "03/08/1950 - Zonas afectadas: Distrito Moran, edo. Lara";
1956:
Escribir "Zonas afectadas: Poblaciones del Municipio Aricagua, distrito Libertador, Estado Merida";
1957:
Escribir "Zonas afectadas: Oriente Venezolano, Distrito Arismendi, Estado Sucre";
1959:
Escribir "Zonas afectadas: Placiones del Municipio Aricagua, distrito Libertador, Estado Merida";
1965:
Escribir "19/07/1965 - Zonas afectadas: Estado Trujillo";
1966:
Escribir "09/09/1966";
1967:
Escribir "29/07/1967 - Epicentro: Colombia - Zonas afectadas: San Cristobal, Estado Tachira";
Escribir "29/07/1967 - Escala: 6.5 E.R. - Zonas afectadas: Caracas";
1968:
Escribir "20/09/1968 - Zonas afectadas: Peninsula de paria, Macuro, Guiria e Irapa";
1975:
Escribir "5/3/1975 - Zonas afectadas: Guanare";
Escribir "1 mes despues fuerte temblor, Region Atarigua, San Pablo y Caracas, Estado Lara";
1980:
Escribir "17/11/1980 - Zonas afectadas: Maparari, Churuguara y El Tural";
Escribir "9 dias despues San Antonio y otras poblaciones, Estado Tachira";
1981:
Escribir "18/10/1981 - Escala: 5.5 E.R. - Epicentro: Territorio colombiano - Zonas afectadas: San Cristobal, El Piñal";
1989:
Escribir "EN TRABAJO";
1997:
Escribir "EN TRABAJO";
2001:
Escribir "EN TRABAJO";
2003:
Escribir "EN TRABAJO";
2009:
Escribir "EN TRABAJO";
2010:
Escribir "EN TRABAJO";
// modificado por wladimir
de Otro Modo:
Escribir "fecha invañida";
FinSegun
Escribir "********************************************************************************";
FinProceso