program b1_8 procedure boolean begin write write write not not AND OR

program b1_8;

procedure f(x, y, z: boolean);
begin
{ write(' ',x,' | ',y,' | ',z,' |','':8);}
 write('':8);
 write((not ( not(x) AND y OR z)),' ':15);
 write((not ( x OR not(y) AND z)), ' ':25 );
 write((x and not(not(y) OR z) OR y)); writeln;
end;

var x, y, z : boolean;

begin

 {write('   X   |   Y   |   Z   |');}
 write(' ne(ne X i Y ili Z) | ');
 write(' ne(Y ili ne(X) i Z) | ');
 write(' X i ne(ne(Y) ili Z) ili Y'); writeln;
 f(false, false, false);
 f(false, false, true);
 f(false, true, false);
 f(true, false, false);
 f(false, true, true);
 f(true, true, false);
 f(true, false, true);
 f(true, true, true);

readln;
end.