En numerosas ocasiones las expresiones de control de un ciclo pueden ser condiciones lógicas compuestas, como las siguientes:

            While (Datos >= 100) and (Datos >= 1000) do

            While not (A <= 5) do

            While (A <> B) and not Eof (input) do

Ejemplo:

Diseñar un programa que verifique si un número es primo.

Program  Primos;

Var

   Primo                       : bolean;

   Número                   : Integer;

Begin

   Primo: =       True;

   Divisor := 2;

   WriteLn (`Introduzca un entero positivo: `);           

   ReadLn (Numero);

   While (Divisor < Numero) and Primo do

               If Numero mod Divisor = 0 then

                        Primo := False;

                        Divisor := Divisor + 1

            End;

            If primo  = True then

               Writeln (Numero,` ` , ` es primo´)

            Else

               Writeln (Numero,` ` , ` no es primo´)

End.