Muchas veces se nos presentan situaciones en las que tenemos que evaluar una condición o situación. Si la condición es verdadera, entonces ejecutamos una o más instrucciones; si no es verdadera, ejecutamos otra u otras instrucciones.

Sintaxis:

If <cond> then
     Begin
          <Bloque de Sentencias>;
     End
Else
     Begin
          <Bloque de Sentencias>;
     End;

Donde <cond> es una condición que puede ser falsa o verdadera, y <bloque de sentencias> es una sola sentencia, o bien varias sentencias encerradas entre un Begin y un End. El Begin y el End se usan cuando hay mas de una sentencia y Else cuando es necesario. La forma general de una condición es:

<expr1><op-rel><expr2>

donde <expr> son expresiones y <op-rel> son los operadores relacionales.

Es bueno recalcar que el bloque del If se ejecuta sólo si la condición es verdadera, y que el bloque del Else se ejecuta sólo si la condición es falsa. La línea que está antes del Else no se le coloca punto y coma.

Veamos un ejemplo:

Program Numeros;
Uses
     CRT;
Var
     numero:integer;

Begin
     CLRSCR;
     Write ('Escriba un número: ');
     Readln (numero);
     If numero>0 Then
          Writeln ('El número es positivo');
     Readln;
End.

Otro ejemplo, pero ahora con Else:

Program Numeros;
Uses
     CRT;
Var
     numero:integer;

Begin
     CLRSCR;
     Write ('Escriba un número: ');
     Readln (numero);
     If numero<0 Then
          Writeln ('El número es negativo')
     Else
          Writeln ('El número es positivo o cero');
     Readln;
End.

· El programa pide un número.
· Si (IF) el numero introducido es menor que cero entonces (THEN) se imprime el mensaje El número es negativo.
· Si no (ELSE), es menor que cero, entonces se imprime el mensaje El número es positivo.

Otro ejemplo:

Program Mayor;
Uses
     CRT;
Var
     N1,N2,N3,NMayor:integer;

Begin
     CLRSCR;
     Write ('Ingrese primer número: ');
     Readln (N1);
     Write ('Ingrese segundo número: ');
     Readln (N2);
     Write ('Ingrese tercer número: ');
     Readln (N3);
     If (N1>=N2) And (N1>=N3) Then;
          NMayor:=N1;
     If (N2>=N1) And (N2>=N3) Then;
          NMayor:=N2;
     If (N3>=N1) And (N3>=N2) Then;
          NMayor:=N3;
     Writeln ('El numero mayor es: ',NMayor);
     Readln;
End.

Otro Ejemplo:

Program Formula;
Uses
     CRT;
Var
     x,y,z:real;

Begin
     CLRSCR;
     Write ('Ingrese el valor de y: ');
     Readln (y);
     Write ('Ingrese el valor de z: ');
     Readln (z);
     If z<>0 Then;
          Begin
               x:=y/z;
               Writeln('x= ',x:8:4);
          End
     Else
          Writeln ('el valor de z debe ser diferente de cero');
     Readln;
End.