Untitled

program operasi_true_false;
{deklarasi}
var X,Y,P,Q,R,S,status:boolean;
    
begin
    X:=true;
    Y:=false;
    P:=not Y and (X or Y);
    Q:=not Y or X and P;
    R:=not P or Q or Y;
    S:=(Y or X)and X or Q;
    status:=true or false;
    
    writeln('Nilai X = ',X);
    writeln('Nilai Y = ',Y);
    writeln('Nilai P = ',P);
    writeln('Nilai Q = ',Q);
    writeln('Nilai R = ',R);
    writeln('Nilai S = ',S);
    writeln('status = ',status);


end.