Программа осуществляющая взаимодействие процессора с конкретным типом внешнего устройства ,

1) а ⋀ в ⋀ с ⋁ а ⋀ ¬в ⋀ с  ⋁ а ⋀ в ⋀ ¬с ⋀ d =  (а ⋁ а)  ⋀ (а ⋁ в) ⋀  (а ⋁ с)  ⋀ (¬в  ⋁ а) ⋀  (¬в  ⋁ в)  ⋀ (¬в  ⋁ с)  ⋀  (с  ⋁ а)  ⋀ (с  ⋁ в)  ⋀  (с  ⋁ с)  ⋁ а ⋀ в ⋀ ¬с ⋀ d =  а ⋀  (а ⋁ в) ⋀  (а ⋁ с)  ⋀ (¬в  ⋁ а)  ⋀ 1  (¬в  ⋁ с)  ⋀  (с  ⋁ в)  ⋀ с  ⋁ а ⋀ в ⋀ ¬с ⋀ d =  а ⋀ с  ⋁ а ⋀ в ⋀ ¬с ⋀ d = 

=  (а ⋁ а)  ⋀    (а ⋁ в) ⋀  (а ⋁ ¬  с)  ⋀ (а ⋁ d)  ⋀  (с  ⋁ а)  ⋀  (с  ⋁ в)  ⋀  (c ⋁ ¬c)  ⋀ (c ⋁ d) = 

=  a  ⋀    (а ⋁ в) ⋀  (а ⋁ ¬  с)  ⋀ (а ⋁ d)  ⋀  (с  ⋁ а)  ⋀  (с  ⋁ в)  ⋀ 1 ⋀ (c ⋁ d) = 

=  a  ⋀  (с  ⋁ в)  ⋀  (c ⋁ d) =  a  ⋀ с  ⋀ (b  ⋁ d)

2)  а ⋁ в ⋁  ¬ b ⋀ c ⋀ d  ⋁  ¬ b ⋀  ¬ c ⋀  ¬ d ⋁  ¬ b ⋀ c ⋀ d  =  а ⋁  в ⋁  ¬ b ⋀ c ⋀ d  ⋁  ¬ b ⋀  ¬ c ⋀  ¬ d =  а ⋁  в ⋁    c ⋀ d  ⋁  ¬ b ⋀  ¬ c ⋀  ¬ d  =  а ⋁  в ⋁    c ⋀ d  ⋁  ¬ c ⋀  ¬ d  =     а ⋁  в ⋁ с ⟷d

3)  а ⋀ в ⋀ с ⋁ а ⋀ в ⋀ ¬с  ⋁ (a ⋀ ¬b ⋀ c ⋀ d)  ⋁ (a ⋀ b ⋀ c ⋀ ¬d)  ⋁  (a ⋀ b ⋀ c ⋀ d)  =  а ⋀ в  ⋁ (a  ⋀ c ⋀ d)   ⋁  (a ⋀ b ⋀ c ⋀ ¬d)  = a ⋀ b ⋁ (a  ⋀ c ⋀ d) = a ⋀ (b ⋁ c) ⋀ (b ⋁ d) = a ⋀ (b ⋁ c ⋀ d)

uses graphabc; var    x,y,r,i,color: integer; begin            randomize;           for i: =1 to 30 do          begin          x: =random(640)+0;           y: =random(480)+0;           r: =random(30)+5;           circle(x,y,r);           color: =random(1000)+0;           floodfill(x,y,color);           end; end.