DEFINITION MODULE Aviones;

TYPE
    TipoRumbo=(Norte,Sur,Este,Oeste);
    TipoAvion=RECORD
              altura,velocidad:CARDINAL;
              rumbo:TipoRumbo;
              END;

    PROCEDURE LeerVelocidad(avion:TipoAvion):CARDINAL;
    PROCEDURE LeerAltura(avion:TipoAvion):CARDINAL;
    PROCEDURE LeerRumbo(avion:TipoAvion):TipoRumbo;

    PROCEDURE ImprimirRumbo(rumbo:TipoRumbo);
END Aviones.

MODULE Examen;
FROM InOut IMPORT WriteInt,WriteString,WriteLn;
IMPORT Aviones;

TYPE TipoFlota=ARRAY [1..20] OF Aviones.TipoAvion;

PROCEDURE ImprimirFlota(flota:TipoFlota);

    VAR
        contador:CARDINAL;

    BEGIN
       WriteString("Los datos de la flota son ..");WriteLn;

       FOR contador:=1 TO 20 DO
            WriteString(" Avion numero ");
            WriteInt(contador,4);WriteLn;
            WriteString("Altura = ");
            WriteInt(Aviones.LeerAltura(flota[contador]),4);
            WriteLn;
            WriteString("Velocidad = ");
            WriteInt(Aviones.LeerVelocidad(flota[contador]),4);
            WriteLn;
            WriteString("Rumbo = ");
            Aviones.ImprimirRumbo(Aviones.LeerRumbo(flota[contador]));
            WriteLn;
       END;
END ImprimirFlota;

END Examen.