(*_______________________________________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejercicio Adicional (AA) 12.1.2: Suma o multiplicacion de dos numeros

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

program AAA12012;

uses Crt;

var A, B : Integer;

begin
   ClrScr;
   Write( 'Introduzca primer numero (entero): ' );
   ReadLn( A );
   Write( 'Introduzca segundo numero (entero): ' );
   ReadLn( B );

   Suma := A + B;
   Multiplicacion := A * B;

   if ( A + B > A * B ) then
      Write( 'LA SUMA ES MAYOR.' )
   else

      { Inicio del anidamiento }
      if ( A * B > A + B ) then
         Write( 'LA MULTIPLICACION ES MAYOR.' )
      else
         Write( 'LA SUMA Y MULTIPLICACION SON IGUALES.' );
      { Fin del anidamiento }
end.