составьте таблицу истинности для следующей логической функции скобка открывается а или не Б скобка закрывается и C

Var a,b,c,d,e,f,k:integer;
begin
for a:=1 to 3 do
 for b:=0 to 9 do
  if (a<>b) then
   for c:=0 to 9 do
    if (c<>a)and(c<>b) then
     for d:=0 to 9 do
      if (d<>a)and(d<>b)and(d<>c) then
       for e:=0 to 9 do
        if (e<>a)and(e<>b)and(e<>c)and(e<>d) then
         begin
         k:=a*10000+b*1000+c*100+d*10+e;
         for f:=0 to 9 do
          if (f<>a)and(f<>b)and(f<>c)and(f<>d)and(f<>e) then
           if k+k+k=b*10000+e*1000+f*100+a*10+e
            then writeln('книга = ',k,' наука = ',b*10000+e*1000+f*100+a*10+e);
         end;
end.

Результат:
книга = 28375 наука = 85125

#include<iostream>#include<algorithm>#include<vector>using namespace std;int main(){ int n,ind1=0,ind2=0; cin>>n; int a[n],b[n],c[n]; int sum=0,min=-10000000,prz=1; for(int i=0;i<n;i++) { cin>>a[i]; if(a[i]>0) prz*=a[i]; if(a[i]>min) min=a[i]; if(i%2==0) { b[ind1]=a[i]; ind1++; } if(i%2!=0) { c[ind2]=a[i]; ind2++; } } for(int i=0;i<n;i++) { sum+=a[i]; if(a[i]==min) { break; } } sort(b,b+ind1); sort(c,c+ind2); cout<<"1) "<<prz<<endl; cout<<"2) "<<sum<<endl; cout<<"3)"<<endl; int k=0,k1=0; for(int i=0;i<n;i++) { if(i%2==0 && k<ind1) { cout<<b[k]<<" "; k++; } if(i%2!=0 && k1<ind2) { cout<<c[k1]<<" "; k1++; } }}