Постройте таблицу истинности для следующих выражений А^(А&В) А&(АvBvC)

Условие дано не совсем корректно. "Каждые 45 минут на прием приходят два человека" - это можно понять двояко: 1) через каждые 45 минут одновременно приходят два человека 2) в течение каждых 45 минут приходят два человека.
Примем условие №1, потому что при условии №2 получается неопределенность (например, каждый приходит в какой-то свой момент времени и даже двое могут прийти на последней секунде этих 45 минут).

Каждые 45 минут приходят двое больных; врач проведет прием двух больных за 40 минут, следовательно, еще 5 минут у него больных не будет и этот цикл повторяется в течение всего времени приема.
1-20 минута: один больной на приеме, один в очереди.
21-40 минута: один больной на приеме, очереди нет.
41-45 минута: на приеме никого нет, очереди нет.
Максимальное время нахождения людей в клинике - 40 минут.
Максимальное количество людей, ожидающих приема - один человек в течение 20 минут.

Для решения задачи по варианту №2 нужно привлекать теорию массового обслуживания и задавать вероятностное распределение прихода больных, после чего проводить моделирование процесса.
 

// Листинг программы и скриншот результата в приложениях.

const
    max_v = 15;
    m1 = -20;
    m2 = 50;
   
var i,j:byte;
    v:array [1..max_v] of integer;
    a,b:integer;

// начальное заполнение массива
procedure randomArray(tx:string);
var i:byte;
begin
  writeln(tx);
  randomize();
 
  for i:=1 to max_v do begin
    v[i]:=random(m1,m2);
    write(v[i]:6);
  end;
  writeln('');
  writeln('');
end;

begin
  randomArray('Начальный массив');
  writeln('Вывести все элементы,в записи которых есть цифра 5 или 7');
 
  for i:=1 to max_v do begin
    //десятки числа
    a:=v[i] div 10;
    //единицы числа
    b:=v[i] mod 10;
    if (a=7) or (a=5) or (b=7) or (b=5)
    then
      writeln(v[i]);
  end;
   
end.