(*________________________________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo (AR) 13.23.1: Numeros enteros divisibles entre 17 o 21
                         (Alternativa simple en bucle para)

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

program EJE13231;

uses Crt;

var Numero : Integer;

begin
   ClrScr;
   GotoXY( 4, 2 );

   for Numero := 1 to 100 do

      { Inicio del anidamiento }
      if ( Numero mod 17 = 0 ) or ( Numero mod 21 = 0 ) then
          Write( Numero, ' ' )
      { Fin del anidamiento }
end.