(*______________________________________________

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

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

program EJE12052;

uses Crt;

var
      Numero : Integer;
   Categoria : String [6];

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 );

   case Numero mod 4 of
      1 : Categoria := 'Fuego';
      2 : Categoria := 'Tierra';
      3 : Categoria := 'Aire';
      0 : Categoria := 'Agua'
   end;

   GotoXY( 4, 19 );
   if ( Numero >= 1 ) and ( Numero <= 12 ) then
      Write( 'Es un signo de ', Categoria, '.' )
   else
      Write( 'ERROR: ', Numero, ' no esta asociado a ningun signo.' )
end.