(*________________________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo (AAR) 13.22: Tabla de multiplicar de un numero
                        (Bucle para en repetir...hasta)

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

program EJE13221;

uses Crt;

var
   Seguir : Char;
   I, Numero : Integer;

begin
   ClrScr;

   repeat
      WriteLn;
      Write( '   Introduzca un numero entero: ' );
      ReadLn( Numero );

      WriteLn;
      WriteLn( '   La tabla de multiplicar del ', Numero, ' es:' );
      WriteLn;

      { Inicio del anidamiento }
      for I := 1 to 10 do
         WriteLn( '   ', I, ' * ', Numero, ' = ', I * Numero );
      { Fin del anidamiento }

      WriteLn;
      Write( '   Desea ver otra tabla (s/n)?: ' );
      ReadLn( Seguir );
   until Seguir = 'n';
end.