program logika_and;
uses WinCrt;
begin;
writeln('benar and benar =',true and true);
writeln('benar and salah =',true and false);
writeln('salah and benar =',false and true);
writeln('salah and salah =',false and false);
writeln;
writeln('benar or benar =',true or true);
writeln('benar or salah =',true or false);
writeln('salah or benar =',false or true);
writeln('salah or salah =',false or false);
writeln;
writeln('benar xor benar =',true xor true);
writeln('benar xor salah =',true xor false);
writeln('salah xor benar =',false xor true);
writeln('salah xor salah =',false xor false);
readln;
donewincrt;
end.