Program ex;
var x, y, z:boolean;
begin
x:=true;
y:=false;
z:=true;
if X or Y or Z = false then writeln('false')
else writeln('true');
readln;
end.
Eu asta am inteles din ce zici tu...
Unde am scris "x:=true;
y:=false;
z:=true;", poti sa le pui pe toate true, sau false, sau cum vrei tu.