Таблица истинности помогите сделать

Question

Таблица истинности помогите сделать

---

Answer 1

Begin 
write('A':4, 'B':6, 'F1':6);writeln;
for A:= false to true do begin
for B:= false to true do begin
F1:= (not(A) or B) and (not(A) or not(A));
write(A:6, B:6, F1:6);writeln;end; end;writeln;write('X':4, 'Y':6, 'Z':6, 'F2':6);
writeln;
for X:= false to true do begin
for Y:= false to true do begin
for Z:= false to true do begin
F2:= (not(X) and Y) or not(Z);write(X:6, Y:6, Z:6, F2:6);writeln;end; end;end;end.

---

Comments

Если просят таблицу истинности, то в ответе надо привести таблицу истинности - и только. Никакие тексты программ не нужны, они только засоряют ответ.

---

Это пояснение откуда значения в таблице истинности, а в дальнейшем сам попробовал решить и проверить

---

При построении таблицы истинности пояснения не требуются. За исключением случая, когда в вопросе явно указана просьба объяснить, как строятся такие таблицы.

---

хорошо, хотелось как лучше...

---

Это совет был

---

понятно!