Таблица истинности

[ket01]

Мне сделали программу по таблицам истинности, но к сожалению связь с этим человеком оборвалась помогите сделать к ней алгоритм.

uses crt;
var x1,x2,x3,x4:boolean;

function f(x1,x2,x3,x4:boolean):boolean;
begin
f:=not(X4 and X1 or (X1 or X3)) or (X4 or X1 and X2);
end;

begin
clrscr;
writeln('X1':7,'X2':7,'X3':7,'X4':7 ,'F':7);
for x1:=false to true do
for x2:=false to true do
for x3:=false to true do
for x4:=false to true do
writeln(X1:7,X2:7,X3:7,X4:7,f(x1,x2 ,x3,x4):7);
readln;
end.

[Alex Cones]

помогите сделать к ней алгоритм.

Какой алгоритм? Б-схему? Тут даже думать над ней не надо. Есть функция, перебираем все возможные варианты и каждый раз её вызываем.