IF ANIDADOS

Los if anidados son aquellas sentencias de turbo pascal que nos permiten seleccionar una opción dependiendo de si se cumple o no la condición, la sintaxis de estos es la siguiente:

IF CONDICIÓN 

     BEGIN 

         INSTRUCCIÓN

     END

ELSE 

     BEGIN 

        IF 

           BEGIN 

              INSTRUCCIÓN

           END

     END;

Un ejemplo claro de como podemos aplicar esta sentencia es la siguiente:

1. En este ejemplo el programa te dirá que valor ingresaste 

Program Condicion_if_Anidados;
Uses Crt;
Var
x,y:integer;
begin
   ClrScr;
   writeln('Ingresa un numero que sea el 1, 2 o 3');
   readln(x);
   writeln;
   if x=1 then (* Primera Comparacion *)
     begin
       writeln('Ingresastes el numero UNO');
     end
   else
     begin

        if x=2 then (* Segunda Comparacion *)
          begin
             writeln('Ingresastes el numero DOS');
          end
       else
         begin
            if x=3 then (* Tercera Comparacion *)
               begin
                   writeln('Ingresastes el numero TRES');

               end
            else      (* Cuarta Comparacion *)
               begin
                  writeln('Ingresastes otro numero diferente');
             end;
       end;
   end;
   writeln;
   write('Presiona Enter p/Salir');
   readln;
end.