Законы логики(информатика ожалуйста,решить От

А) (A+C)×(¬A+B)×(A+¬C)
Б) A׬B׬C+¬B׬C×A
В) (A+¬B)×(¬A+B)׬A׬B​

var i,j,n,k,k1,k2,k3: integer; bb: boolean;

a: array of integer;

begin

write('N = ');

readln(n);

if ((n mod 3 = 0) and (n<>0)) then begin

write('K1 = ');

readln(k1);

write('K2 = ');

readln(k2);

write('K3 = ');

readln(k3);

setlength(a,n);

for i:=0 to n-1 do begin

write('Заполним номер ',i+1,' -> ');

readln(a[i]);

end;

i:=0;

while (i<n) do

begin

a[i]:=k1-a[i];

a[i+1]:=k2-a[i+1];

a[i+2]:=k3-a[i+2];

inc(i,3);

end;

write('K = ');

readln(k);

for i:=0 to n-2 do

if (a[i]+a[i+1]>=k) then begin write('В комнатах ',i+1,' и ',i+2,' есть ',a[i]+a[i+1],' свободных мест'); bb:= true; end;

if (bb=false) then writeln(0);

end else writeln('Введите число кратное 3 и неравное 0');

readln;

end.

Uses Crt;
Var a,b,i,tek,sum10,sum3:integer;
Procedure TroichSS (te:integer; var sum3:integer);
var m:array[1..10]of integer;
    k,j,su3:integer;
begin
    write(te:4);
    repeat
        inc(k); m[k]:=te mod 3; te:=te div 3;
    until te<3;
    inc(k); m[k]:=te mod 3;
    for j:=k downto 1 do
        begin su3:=su3+m[j]; write(m[j]:3) end;
    write(' su3=',su3);
    sum3:=su3; su3:=0; k:=0;
end;
Procedure DesiatSS (te:integer; var sum10:integer);
var m:array[1..10]of integer;
    k,j,su10:integer;
begin
    write(te:4);
    repeat
        inc(k); m[k]:=te mod 10; te:=te div 10;
    until te<10;
    inc(k); m[k]:=te mod 10;
    for j:=k downto 1 do
        begin su10:=su10+m[j]; write(m[j]:3); end;
    writeln(' su10=',su10);
    sum10:=su10; su10:=0; k:=0;
end;
Begin
//Задание интервала [a; b]
    a:=1; b:=1000;
    writeln('Интервале [a; b]',a:4,b:4);
//Сумма цифр троичных и десятичных чисел
    for i:=a to b do
    begin
        TroichSS(i,sum3); DesiatSS(i,sum10);
        if sum3=sum10 then
            begin writeln('Э в р и к а!'); delay(5000); end;
    end;
    writeln('К о н е ц.');
End.

ответ: 39