(*______________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo (AM) 12.5.1: Signo del zodiaco
                        (Solucion 1)

   Web del Autor: http://www.carlospes.com
  ______________________________________________*)

program EJE12051;

uses Crt;

var Numero : Integer;

begin
   ClrScr;
   GotoXY( 4, 2 );
   Write( 'Listado de signos del zodiaco:' );
   GotoXY( 4, 4 );
   Write( '1. Aries' );
   GotoXY( 4, 5 );
   Write( '2. Tauro' );
   GotoXY( 4, 6 );
   Write( '3. Geminis' );
   GotoXY( 4, 7 );
   Write( '4. Cancer' );
   GotoXY( 4, 8 );
   Write( '5. Leo' );
   GotoXY( 4, 9 );
   Write( '6. Virgo' );
   GotoXY( 4, 10 );
   Write( '7. Libra' );
   GotoXY( 4, 11 );
   Write( '8. Escorpio' );
   GotoXY( 4, 12 );
   Write( '9. Sagitario' );
   GotoXY( 4, 13 );
   Write( '10. Capricornio' );
   GotoXY( 4, 14 );
   Write( '11. Acuario' );
   GotoXY( 4, 15 );
   Write( '12. Piscis' );
   GotoXY( 4, 17);
   Write( 'Introduzca numero de signo: ' );

   Read( Numero );

   GotoXY( 4, 19 );
   case Numero of
      1, 5, 9  : Write( 'Es un signo de Fuego.' );
      2, 6, 10 : Write( 'Es un signo de Tierra.' );
      3, 7, 11 : Write( 'Es un signo de Aire.' );
      4, 8, 12 : Write( 'Es un signo de Agua.' )
      else
         Write( 'ERROR: ', Numero, ' no esta asociado a ningun signo.' )
   end
end.