Каким образом можно запустить или открыть объект?

Условия:
1. Алексеев и Воробьев будут или не будут в призерах соревнований одновременно.
2. Воробьев будет в тройке победителей, то и Алексеев тоже.
3. Алексеев не будет среди призеров или среди победителей будут Бедняков и Воробьев.

Сразу заменим фамилии в буквы:
Алексеева = А
Беднякова = Б
Воробьева = В

Запишим утверждение пользуясь языком логических выражений:
! - логическое отрицание
∪ - дизьюнкция, логическое ИЛИ
∩ - коньюнкция, логическое И

Запись первой буквы фамилии учасника будем считать за утверждение, что он входит в тройку победителей, то есть ИСТИНА
Отрицанием же будет утверждение, что он не входит в тройку победителей.

1.
Алексеев и Воробьев будут в призерах соревнований одновременно на языке логических выражений выглядит вот так:
(А ∩ В)

Алексеев и Воробьев не будут в призерах соревнований одновременно:
!(А ∩ В)

И первое и второе выражение входит в первое условие, запишим его едино:
(А ∩ В) ∪ !(А ∩ В)

2.
Второе условие можем изобразить как:
В ∩ А

3.
Третье условие получается из двух.Алексеев не будет среди призеров:
!А

Или среди победителей будут Бедняков и Воробьев:
Б ∩ В

Теперь снова объеденим в одно целое:
!А ∪ (Б ∩ В)

Теперь запишим все утверждения целеком рядом:
1. (А ∩ В) ∪ !(А ∩ В)
2. В ∩ А
3. !А ∪ (Б ∩ В)

Вопрос: После соревнований оказалось, что два из предположений истинно, а одно - ложно. Кто из спортсменов был в призерах?

Наглядно видно, что в последнем (третьем) утверждении два должны быть именны, а одно ложно.

ответ: Бедняков и Воробьев были в призерах.

за отметку "Лучший ответ" и нажатую кнопочку " " - тут и у меня в профиле.

Program z1;
Uses Crt;
Var
z:integer;
Begin
ClrScr;
writeln('1*2=?');
readln(z);
if z=2 then writeln('Верно!')
else  writeln('Не верно! 1*2=2');
writeln('2*3=?');
readln(z);
if z=6 then writeln('Верно!')
else  writeln('Не верно! 2*3=6');
writeln('3*6=?');
readln(z);
if z=18 then writeln('Верно!')
else  writeln('Не верно! 3*6=18');
writeln('4*7=?');
readln(z);
if z=28 then writeln('Верно!')
else  writeln('Не верно! 4*7=28'); 
writeln('5*9=?');
readln(z);
if z=45 then writeln('Верно!')
else  writeln('Не верно! 5*9=45');
writeln('6*4=?');
readln(z);
if z=24 then writeln('Верно!')
else  writeln('Не верно! 6*4=24');
writeln('7*7=?');
readln(z);
if z=49 then writeln('Верно!')
else  writeln('Не верно! 7*7=49');
writeln ('8*6=?');
readln(z);
if z=48 then writeln('Верно!')
else  writeln('Не верно! 8*6=48');
writeln('9*4=?');
readln(z);
if z=36 then writeln('Верно!')
else  writeln('Не верно! 9*4=36');
writeln('10*8=?');
readln(z);
if z=80 then writeln('Верно!')
else  writeln('Не верно! 10*8=80');
readln;
end.