program MyBooleanDemo;
uses Forms;

var
 YesOrNo: Boolean;
 OnOff: Boolean;

begin
 YesOrNo := FALSE;
 OnOff := not YesOrNo;

 Writeln('Stan zmiennej YesOrNo : ', YesOrNo );
 Writeln('Stan zmiennej OnOff : ', OnOff );
 Writeln('Logiczna suma : ', YesOrNo or OnOff );
 Writeln('Logiczny iloczyn : ', YesOrNo and OnOff );

 Readln; { czekamy na nacinicie klawisza ENTER }
end.