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

if not(pInt = nil) then ValidP := true ;