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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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.