составить таблицу истинностей для логического выражения: a or not a and b

Программа может выглядеть так:

uses Crt;
const n=50;
type Vec=array [1..n] of integer;
var A: Vec;
    i, Sum, Col: integer;
begin
ClrScr;
Randomize;
Sum:=0;
Col:=0;
 for i:=1 to n do
     begin
       A[i]:=10+random(40);
       Write(A[i]: 4);
       if (i mod 10 =0 ) then WriteLn;
       if (A[i] mod 7 = 1) or (A[i] mod 7 = 2) or (A[i] mod 7 = 5 ) then
         begin
              Sum:=Sum+A[i];
              Col:=Col+1;
         end;
     end;
 WriteLn;
 WriteLn (' Sum = ', Sum);
 WriteLn (' Col = ', Col);
ReadLn;
end.

Const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
b:array[1..n*m]of integer;
i,j,buf,k:integer;
     begin     
          for i:=1 to n do         
              begin             
                 for j:=1 to m do                 
                    begin                     
                          a[i,j]:=random(100);                     
                          write(a[i,j]:4);                       
                          k:=k+1;                       
                          b[k]:=a[i,j];                 
                   end;
        writeln;         
     end;
writeln;     
      for i:=1 to n*m-1 do         
         for j:=i+1 to n*m do
             if b[i]>b[j] then               
                begin  
                    buf:=b[i];                   
                    b[i]:=b[j];                   
                    b[j]:=buf;             
                end;               
     for i:=1 to m*n do                   
       write(b[i]:4);
end.