Pseudocodigo
Inicio
var
des, paq, tip : caracter;
cup: entero;
can, prom: real;
Imprimir('Introduzca el destino:');
leer(des);
Imprimir('Que paquete desea comprar: fin de semana (f) o semana completa (c):');
Leer(paq);
Imprimir('Puede ser premium (P) o economico (E):');
Leer(tip);
Imprimir('Cantidad de personas a viajar:');
Leer(can);
si (des = 'i') y (paq = 'f') y (tip = 'p') y (can = 2) entonces
prom:= (1000*12/100)+(1000+0.54);
cup:=15;
si (des = 'i') y (paq = 'f') y (tip = 'p') y (can = 4) entonces
prom:= (1500*12/100)+(1500+0.54);
cup:=10;
si (des = 'i') y (paq = 'f') y (tip = 'p') y (can = 6) entonces
prom:= (1800*12/100)+(1800+0.54);
cup:=10;
si (des = 'i') y (paq = 'f') y (tip = 'e') y (can = 2) entonces
prom:= (600*12/100)+(600+0.54);
cup:=20;
si (des = 'i') y (paq = 'f') y (tip = 'e') y (can = 4) entonces
prom:= (1000*12/100)+(1000+0.54);
cup:=15;
si (des = 'i') y (paq = 'f') y (tip = 'e') y (can = 6) entonces
prom:= (1200*12/100)+(1200+0.54);
cup:=15;
si (des = 'i') y (paq = 'c') y (tip = 'p') y (can = 2) entonces
prom:= (2500*12/100)+(2500+0.54);
cup:=15;
si (des = 'i') y (paq = 'c') y (tip = 'p') y (can = 4) entonces
prom:= (3500*12/100)+(3500+0.54);
cup:=10;
si (des = 'i') y (paq = 'c') y (tip = 'p') y (can = 6) entonces
prom:= (4000*12/100)+(4000+0.54);
cup:=10;
si (des = 'i') y (paq = 'c') y (tip = 'e') y (can = 2) entonces
prom:= (1800*12/100)+(1800+0.54);
cup:=20;
si (des = 'i') y (paq = 'c') y (tip = 'e') y (can = 4) entonces
prom:= (2500*12/100)+(2500+0.54);
cup:=15;
si (des = 'i') y (paq = 'c') y (tip = 'e') y (can = 6) entonces
prom:= (3000*12/100)+(3000+0.54);
cup:=15;
Si (des = 'm') y (paq = 'f') y (tip = 'p') y (can = 2) entonces
prom:= (600*12/100)+(600+0.54);
cup:=15;
if (des = 'm') y (paq = 'f') y (tip = 'p') y (can = 4) entonces
prom:= (900*12/100)+(900+0.54);
cup:=10;
si (des = 'm') y (paq = 'f') y (tip = 'p') y (can = 6) entonces
prom:= (1200*12/100)+(1200+0.54);
cup:=10;
si (des = 'm') y (paq = 'f') y (tip = 'e') y (can = 2) entonces
prom:= (450*12/100)+(450+0.54);
cup:=20;
si (des = 'm') y (paq = 'f') y (tip = 'e') y (can = 4) entonces
prom:= (600*12/100)+(600+0.54);
cup:=15;
si (des = 'm') y (paq = 'f') y (tip = 'e') y (can = 6) entonces
prom:= (750*12/100)+(750+0.54);
cup:=15;
si (des = 'm') y (paq = 'c') y (tip = 'p') y (can = 2) entonces
prom:= (1200*12/100)+(1200+0.54);
cup:=15;
si (des = 'm') y (paq = 'c') y (tip = 'p') y (can = 4) entonces
prom:= (1500*12/100)+(1500+0.54);
cup:=10;
si (des = 'm') y (paq = 'c') y (tip = 'p') y (can = 6) entonces
prom:= (1800*12/100)+(1800+0.54);
cup:=10;
si (des = 'm') y (paq = 'c') y (tip = 'e') y (can = 2) entonces
prom:= (900*12/100)+(900+0.54);
cup:=20;
si (des = 'm') y (paq = 'c') y (tip = 'e') y (can = 4) entonces
prom:= (1200*12/100)+(1200+0.54);
cup:=15;
si (des = 'm') y (paq = 'c') y (tip = 'e') y (can = 6) entonces
prom:= (1500*12/100)+(1500+0.54);
cup:=15;
si (des = 'g') y (paq = 'f') y (tip = 'p') y (can = 2) entonces
prom:= (1200*12/100)+(1200+0.54);
cup:=15;
si (des = 'g') y (paq = 'f') y (tip = 'p') y (can = 4) then
prom:= (2000*12/100)+(2000+0.54);
cup:=10;
si (des = 'g') y (paq = 'f') y (tip = 'p') y (can = 6) entonces
prom:= (2500*12/100)+(2500+0.54);
cup:=10;
si (des = 'g') y (paq = 'f') y (tip = 'e') y (can = 2) entonces
prom:= (900*12/100)+(900+0.54);
cup:=20;
si (des = 'g') y (paq = 'f') y (tip = 'e') y (can = 4) entonces
prom:= (1400*12/100)+(1400+0.54);
cup:=15;
si (des = 'g') y (paq = 'f') y (tip = 'e') y (can = 6) entonces
prom:= (1800*12/100)+(1800+0.54);
cup:=15;
si (des = 'g') y (paq = 'c') y (tip = 'p') y (can = 2) entonces
prom:= (2600*12/100)+(2600+0.54);
cup:=15;
si (des = 'g') y (paq = 'c') y (tip = 'p') y (can = 4) entonces
prom:= (3800*12/100)+(3800+0.54);
cup:=10;
si (des = 'g') y (paq = 'c') y (tip = 'p') y (can = 6) entonces
prom:= (4500*12/100)+(4500+0.54);
cup:=10;
si (des = 'g') y (paq = 'c') y (tip = 'e') y (can = 2) entonces
prom:= (2200*12/100)+(2200+0.54);
cup:=20;
si (des = 'g') y (paq = 'c') y (tip = 'e') y (can = 4) entonces
prom:= (3000*12/100)+(3000+0.54);
cup:=15;
si (des = 'g') y (paq = 'c') y (tip = 'e') y (can = 6) entonces
prom:= (3500*12/100)+(3500+0.54);
cup:=15;
imprimir('Hay ',cup,' cupos disponibles con un valor de: ', prom,' Bfs con iva y tasa incluida');
fin.