Как решить первое задание подробно, к остальным просто написать используемые функции

¬((X>3) ∨ (X<3)) ∨ (X<1)  ⇒ ¬((2>3) ∨ (2<3)) ∨ (2<1)  ⇒
¬(Ложь ∨ Истина) ∨ (Ложь) ⇒ ¬Истина ∨ Ложь  ⇒ Ложь ∨ Ложь  ⇒ Ложь  

<span>Да, только в такой форме, чтобы ответ на вопросительное предложение всегда выражал суть высказывания.Я считаю что так.</span>

<em>1.</em>

var
i: integer;
A: array [1..20] of integer;

begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(21)-10;
 for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Каждый пятый эелемент массива: ');
 for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5);
end.
<span>
</span><em>2.</em>
var
x,i: integer;
A: array [1..20] of integer;

begin
randomize;
writeln('Массив: ');
 for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Натуральные числа в диапазоне [5..10]: ');
 for i:=5 to 10 do write(A[i]:5);
writeln;
x:=1;
writeln('Их произведение: ');
 for i:=5 to 10 do x:=A[i]*x;
write(x:5); 
end.

Верный ответ здесь: <span>1)hairpy.ppt</span>