1*44149Sbosticprogram booltest (input, output); 2*44149Sbosticvar b : boolean; 3*44149Sbosticbegin 4*44149Sbostic b := true; 5*44149Sbostic b := false; 6*44149Sbosticend. 7