program b1_8 var boolean begin write write ne ne ili write ne ili ne w

 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
program b1_8;
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;
write(' 0 | 0 | 0 |','':8);
x := false; y := false; z := false;
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;
write(' 0 | 0 | 1 |','':8);
x := false; y := false; z := true;
write((not ( not(x) AND y OR z)),' ':14);
write((not ( x OR not(y) AND z)), ' ':24 );
write((x and not(not(y) OR z) OR y)); writeln;
write(' 0 | 1 | 0 |','':8);
x := false; y := true; z := false;
write((not ( not(x) AND y OR z)),' ':14);
write((not ( x OR not(y) AND z)), ' ':25 );
write((x and not(not(y) OR z) OR y)); writeln;
write(' 1 | 0 | 0 |','':8);
x := true; y := false; z := false;
write((not ( not(x) AND y OR z)),' ':15);
write((not ( x OR not(y) AND z)), ' ':24 );
write((x and not(not(y) OR z) OR y)); writeln;
write(' 0 | 1 | 1 |','':8);
x := false; y := true; z := true;
write((not ( not(x) AND y OR z)),' ':14);
write((not ( x OR not(y) AND z)), ' ':25 );
write((x and not(not(y) OR z) OR y)); writeln;
write(' 1 | 1 | 0 |','':8);
x := true; y := true; z := false;
write((not ( not(x) AND y OR z)),' ':15);
write((not ( x OR not(y) AND z)), ' ':24 );
write((x and not(not(y) OR z) OR y)); writeln;
write(' 1 | 0 | 1 |','':8);
x := true; y := false; z := true;
write((not ( not(x) AND y OR z)),' ':14);
write((not ( x OR not(y) AND z)), ' ':24 );
write((x and not(not(y) OR z) OR y)); writeln;
write(' 1 | 1 | 1 |','':8);
x := true; y := true; z := true;
write((not ( not(x) AND y OR z)),' ':14);
write((not ( x OR not(y) AND z)), ' ':24 );
write((x and not(not(y) OR z) OR y)); writeln;
readln;
end.