Формулу при законов логики и составить таблицу истинности для исходной и формулы . составить по исходной формуле логические схемы. составить временную диаграмму исходной формулы. y=x1x2x3 v x1x2x3 v x1x3 сверху по середине черта и в x1x3 тоже черта

Uses crt;
var a,b,c,x,max,min,sum,pr: integer;
begin
     write('Введите число:  ');
     readln(x);
     a:= x div 100;
     b:= x div 10 mod 10;
     c:= x mod 10;
     sum:=a+b+c;
     pr:=a*b*c;
     if a>b then begin
        min:=b;
        max:=a;
     end
     else begin
          max:=b;
          min:=a;
     end;
     if min>c then min:=c;
     if max<c then max:=c;
     writeln('Сумма цифр числа: ',sum);
     writeln('Произведение цифр числа: ',pr);
     writeln('Максимальная цифра: ',max);
     writeln('Минимальная цифра: ',min);
end.

Uses GraphABC; 
procedure Draw(x, y, l, u : Real; t : Integer);

procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);
begin
Draw(x, y, l, u, t);
x := x + l*cos(u);
y := y - l*sin(u);end; 
begin
if t > 0 then
beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1);
Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end
else
Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end;
begin
SetWindowSize(425,500);
SetWindowCaption('Фракталы: Снежинка Коха');
Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4);
Draw(210, 8, 400, -pi/3, 4);end.