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

2 lines
40 B
Plaintext

if ( ValidP ) and (pInt^ <> 0) then ...