RosettaCodeData/Task/Boolean-values/Pascal/boolean-values-1.pascal

var
    pInt   : ^integer ;
    ValidP : boolean ;