Дана логическая схема. Построить соответствующее ей логическое выражение ! В долгу не останусь!

Василий
Из условия задачи знаем, что он выбрал желтую "флэшку".
Он выбрал "флэшку", которая больше "флэшки" Пети. Значит, учитывая, что Егор купил "флэшку" на 16 Гб(см. объяснение ниже), то Василий мог купить устройство объемом 4 и 8 Гб. 8>4 => Василий купил гаджет размером 8 Гб.
Следовательно, Василий купил желтую "флэшку" на 8 Гб.

Егор
Знаем, что ему не понравилась "флэшка" красного цвета, значит, он выбрал либо зеленую, либо желтую. Но в условии сказано, что желтую "флэшку"купил Василий, значит, Егор купил "флэшку" зеленого цвета.

Из условия следует, что Егор купил "флэшку" размером, равную "флэшкам" Пети и Василия вместе взятых. Знаем, что у "флэшек" следующие размеры: 4 Гб, 8 Гб, 16 Гб. Предположим, Егор купил гаджет размером 4 Гб, тогда должно быть справедливо следующее: 4>8+16; 4>24. Однако, это неверно, значит, Егор не покупал "флэшку" на 4 Гб. Предположим, что размер устройства был 8 Гб => 8>4+16; 8>20. Это тоже не верно. Значит, Егор купил "флэшку" на 16 Гб. Проверим: 16>4+8; 16>12.
Следовательно, Егор купил зеленую "флэшку" на 16 ГБ.

Петя
Методом исключения понимаем, что Петя купил красную "флэшку". Методом исключения, Петя купил "флэшку" на 4 Гб.
Получаем, что Петя купил красную "флэшку" на 4 Гб.

Подходит 3 вариант из ответов.

// PascalABC.NET 3.0, сборка 1088
const
  nDay:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
type
  Date=record
    Day,Month,Year:integer
  end;
 
function DOW(Dat:Date):integer;
// день недели по дате. 0-Вс. 1-Пн, 7-Сб
var
  a,y,m:integer;
begin
  With Dat do begin
    a:=(14 - month) div 12;
    y:=Year-a;
    m:=month+12*a-2;
    DOW:=(7000+(day+y+y div 4-y div 100+y div 400+(31*m) div 12)) mod 7
    end
end;

procedure DMY2Date(d,m,y:integer; var data:Date);
// Преобразует к дате заданные день, месяц и год
begin
  data.Day:=d; data.Month:=m; data.Year:=y
end;

procedure LastDays(month,year:integer; var Wd,Fr:Date);
// даты последней среды (Wd) и пятницы (Fr) для месяца в году }
var
  LastDay:Date;
  n:integer;
begin
  n:=nDay[month];
  if (month=2) and (year mod 4 = 0) then Inc(n);
  DMY2Date(n,month,year,LastDay);
  n:=DOW(LastDay); // номер последнего дня недели
  Wd.Month:=month; Wd.Year:=year;
  if n<3 then Wd.Day:=LastDay.Day-(n+4)
  else
    if n=3 then Wd.Day:=LastDay.Day
    else Wd.Day:=LastDay.Day+3-n;
  Fr.Month:=month; Fr.Year:=year;
  if n<5 then Fr.Day:=LastDay.Day-(n+2)
  else
    if n=3 then Fr.Day:=LastDay.Day
    else Fr.Day:=LastDay.Day-1
end;

var
  Wd,Fr:Date;
  ff,mf:Text;
  m:integer;
begin
  Assign(ff,'father.txt'); Rewrite(ff);
  Assign(mf,'mother.txt'); Rewrite(mf);
  // Сентябрь-декабрь 2015 года
  for m:=9 to 12 do begin
    LastDays(m,2015,Wd,Fr);
    if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2015 - 1 класс')
    else Writeln(ff,Wd.Day,'.',m,'.2015 - 1 класс');
    if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2015 - 5 класс')
    else Writeln(ff,Fr.Day,'.',m,'.2015 - 5 класс')
  end;
  // Январь - май 2016 года
  for m:=1 to 5 do begin
    LastDays(m,2016,Wd,Fr);
    if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2016 - 1 класс')
    else Writeln(ff,Wd.Day,'.',m,'.2016 - 1 класс');
    if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2016 - 5 класс')
    else Writeln(ff,Fr.Day,'.',m,'.2016 - 5 класс')
  end;
  Close(ff); Close(mf)
end.

Содержимое выходных файлов:
father.txt
30.9.2015 - 1 класс
28.10.2015 - 1 класс
30.10.2015 - 5 класс
30.12.2015 - 1 класс
24.2.2016 - 1 класс
26.2.2016 - 5 класс
30.3.2016 - 1 класс

mother.txt
25.9.2015 - 5 класс
25.11.2015 - 1 класс
27.11.2015 - 5 класс
25.12.2015 - 5 класс
27.1.2016 - 1 класс
29.1.2016 - 5 класс
25.3.2016 - 5 класс
27.4.2016 - 1 класс
29.4.2016 - 5 класс
25.5.2016 - 1 класс
27.5.2016 - 5 класс