Exemple avec expressions relationnelles et booléennes

program GRAND_PETIT ;

    var SEX : char ;

    MAJEUR, PETIT, GRAND, FEMME, HOMME : boolean ;

    AGE : 1..120; TAILLE :  50..250;

begin

    read (SEX, AGE, TAILLE) ;

    FEMME :=  SEX='F' ;   {femme est vrai si sex = F}

    HOMME   :=  not FEMME ; {homme vaut le contraire de femme} MAJEUR  :=  AGE>18 ;

    if  FEMME then

        begin

            PETIT  :=  TAILLE<150 ;  {petit est vrai si TAILLE < 150}

            GRAND  :=  TAILLE>170 ;

        end

    else

        begin

            PETIT  :=  TAILLE<160 ;

            GRAND  :=  TAILLE>180 ;

        end ;

    writeln (MAJEUR, FEMME, HOMME) ;

    writeln (AGE, PETIT, GRAND) ;

end.