program logika;
uses crt;
var x1,x2,x3,a,b,c,d,e,f,g,l,k,m:byte;
function ne(z1:byte):byte;
begin
if z1=1 then ne:=0
else ne:=1;
end;
function i(z1,z2:byte):byte;
begin
i:=(z1 and z2);
end;
function ili(z1,z2:byte):byte;
begin
ili:=(z1 or z2);
end;
function ravno(z1,z2:byte):byte;
begin
if z1=z2 then ravno:=1
else ravno:=0;
end;
begin
clrscr;
writeln('x1 x2 x3 a b c d e f g l k m');
for x1:=0 to 1 do begin
for x2:=0 to 1 do begin
for x3:=0 to 1 do begin
a:=x2;
b:=i(x1,a);
c:=ne(ili(x2,x3));
d:=ne(x3);
e:=ne(ili(x2,d));
f:=ne(ili(x1,d));
g:=ili(ili(x1,a),d);
l:=ravno(b,c);
k:=ravno(f,g);
m:=i(l,k);
writeln(' ',x1,'  ',x2,'  ',x3,' ',a,' ',b,' ',c,' ',d,' ',e,' ',f,' ',g,' ',l,' ',k,' ',m);
end;
end;
end;
end.