Построить логическую схему и составить таблицу истинности, соответствующих операции логического умножения (конъюкции)-and

F=(А & B) v (B & C & A) 
     A     B     C     F False False False False False False  True False False  True False False False  True  True False  True False False False  True False  True False  True  True False  True  True  True  True  True
var A,B,C,F:boolean;
beginwriteln('A':6,'B':6,'C':6,'F':6);for A:=false to true do beginfor B:=false to true do beginfor C:=false to true do beginF:=(A and B) or (B and C and A);writeln(A:6,B:6,C:6,F:6);end;end;end;end.