SoloCodigo

Buenas!!

Tengo este codigo, en el cual estoy tratando de ejemplificar el uso del "IF":

PROGRAM prueba;
USES crt;
VAR
      numero:integer;
BEGIN
     clrscr;
     writeln ('Ingrese un número'); readln (numero);

    IF numero<100 THEN
        writeln ('El número es menor a 100');
    IF numero>100 THEN
        writeln ('El número es mayor a 100')
    ELSE
          writeln ('El número es igual a 100');    
    readln
END.

Deseo ejemplificar el uso del "IF", y segun yo habia aprendido al escribir lo que esta en rojo al ingresar un valor mayor a 100 (ejem. 101) mostraria "El número es mayor a 100"; el otro caso sería si el valor es menor a 100 (ejem. 99) mostraria "El número es menor a 100"; y en el caso del ELSE al ser igual a 100 entonces mostraria "El número es igual a 100".

Bueno aquí viene mi verdadera pregunta.  Porque razón utilizando ese codigo al ingresar un valor menor a 100 me escribe lo que aparece en el primer "IF" y lo que aparece en el "ELSE"?

Pido disculpas si al ingresar el código e faltado a alguna norma del foro, pero no e encontrado información relacionada sobre este problema (se podría decir que el mismo codigo es anticuado) pero ni consultando con compañeros le e encontrado respuesta, espero que ustedes me puedan responder porque pasa eso.

  Se me olvidaba agregar que el programa lo escribi en Pascal 7.0