1.Какие значения могут принимать переменные логического типа? False
хor
not
True
2.Выберите операции которые применимы к переменным логического типа:

+, -, /, *
False, True
not, and, or и хor
3.Какая из перечисленных операций является логическим умножением?

not
or
div
and
4.Какая из перечисленных операций является логическим сложением?

not
*
or
mod
5.Что будет выведено на экран после выполнения оператора write (9>1)?

"False"
9>1
False
True
6.Что будет результатом выполнения операции X and Y, если Х=False, Y=True? (ответ нужно ввести латинскими буквами)
7.Какой результат будет получен после выполнения операции not X, если Х=False? (ответ нужно записать латинскими буквами)

Задание не очень понял , а если точнее "отобразить в виде дерева" ,но вроде так:
-> означает что от этого слова идут 2 стрелки и в конце стрелок слово.

магнитный диск -> sport -> sky -> russia.txt

магнитный диск -> sport -> skate -> getmany.txt

= = = =
магнитный диск -> computer -> bm -> info -> pentium.txt

магнитный диск -> computer -> info -> ibm.txt

объясняю: от магнитного диска идёт 2 ветви(это же дерево) 1.sport и 2.computer

1.от ветки sport идёт ещё 2 ветки sky и skate
от ветки sky идёт "плод" - russia.txt
от ветки skate идёт "плод" - germany.txt

2.от ветки computer идёт 2 ветки - 1.bm и 2.info
от ветки bm идёт info ,а от info "плод" - pentium.txt
от ветки info идёт "плод" - ibm.txt

получается вот такое дерево)

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

1)

procedure Add(a,b:integer; var r:integer);
begin
  r:=a+b
end;

begin
  var (x,y):=ReadInteger2('Введите два целых числа:');
  var z:integer;
  Add(x,y,z);
  Writeln('Их сумма равна ',z)
end.

Пример
Введите два целых числа: 18 142
Их сумма равна 160

2)

function Min3(a,b,c:integer):=Min(a,Min(b,c));

begin
  var (i,j,k):=ReadInteger3('Введите три целых числа:');
  Writeln('Минимальное равно ',Min3(i,j,k))
end.

Пример
Введите три целых числа: 35 -4 41
Минимальное равно -4