Parcial De Algoritmos

2. Un BOING 747 tiene una capacidad de carga para equipaje de aproximadamente 18.000 kg. Confeccione un algoritmo que controle la recepción de equipajes para este avión, sabiendo que un bulto nopuede exceder la capacidad de carga del avión ni tampoco exceder los 500 Kg.
El valor por kilo del bulto es: 

0 a 25 Kg. cero soles
25 a 300 Kg. 1500 soles por kilo de equipaje.
300 a 500 Kg. 2500 solespor kilo de equipaje
Para un vuelo cualquiera se pide:

Número total de bultos ingresados para el vuelo
Peso del bulto más pesado y del más liviano
Peso promedio de los bultos
Ingreso en soles porconcepto de carga


CODIGO: [SELECCIONAR TODO] [EXPANDIR/CONTRAER] [DESCARGAR] (PROBLEMA2.TXT)
1. mayor = 0, menor = 501, bucle = 0, p = 0, b = 0, lb = 0, px = 0, i = 0, n = 0
2.    
3.     while bucle= 0
4.         p = 0
5.         while p = 0
6.             input b
7.             while b > 500
8.                 print "No puede exceder los 500 kg";
9.                 input b
10.            endwhile
11.             px = px + b
12.             p = 1
13.             if px > 18000
14.                 lb = px - 18000
15.                 print "Capacidad para bs en Kg: " lb;
16.                 px= px - b
17.                 p = 0
18.             endif
19.         endwhile
20.        
21.         if mayor < b
22.             mayor = b
23.         endif
24.         if menor > b
25.            menor = b
26.         endif
27.         if b <= 25
28.             i = i + b*0
29.         else
30.             if b > 25 and b <= 300
31.                 i = i + b*1500
32.             else
33.                i = i + b*2500
34.             endif
35.         endif
36.         n = n + 1
37.         if px = 18000
38.             exit
39.         endif
40.     endwhile
41.    
42.     print "Númerototal de bultos: n;
43.     print "Peso del bulto más pesado: " mayor;
44.     print "Peso del bulto más liviano: " menor;
45.     print "Peso promedio de los bultos: " px/n;
46.     print "Ingreso...