Определите значение логического выражения ((x< 5)→(x< 3) )∙((x< 2)→(x< 1) ) для x=1, 2, 3, 4

X=1
((1<5)→(1<3) )∙((1<2)→(1<1) ) ⇒ (Истина→Истина)∙(Истина→Ложь) ⇒ Истина∙Ложь ⇒ Ложь
X=2
((2<5)→(2<3) )∙((2<2)→(2<1) ) ⇒ (Истина→Истина)∙(Ложь→Ложь) ⇒ Истина∙Истина ⇒ Истина
X=3
((3<5)→(3<3) )∙((3<2)→(3<1) ) ⇒ (Истина→Ложь)∙(Ложь→Ложь) ⇒ Ложь∙Истина ⇒ Ложь
X=4
((4<5)→(4<3) )∙((4<2)→(4<1) ) ⇒ (Истина→Ложь)∙(Ложь→Ложь) ⇒ Ложь∙Истина ⇒ Ложь

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
    begin
        writeln('I');
        var n := ReadInteger('n=');
        Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
    end;
    
    begin
        writeln;
        writeln('II');
        var n := ReadInteger('n=');
        Writeln(n mod 11 = 0 ? 'YES' : 'NO');
        
    end;
    
    begin
        writeln;
        writeln('III');
        var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
        writeln;
        
        while a.Any() do
        begin
            write(a[0], ' ');
            a.RemoveAt(0);
            if not a.Any then break;
            
            write(a.Last, ' ');
            a.RemoveAt(a.Count - 1);
            if not a.Any then break;
            
            var n := 0;
            if a.Count > 1 then n := a.Count div 2 - 1;
            write(a[n], ' ');
            a.RemoveAt(n);
        end;
    end;
end.

Program Zn;

uses CRT;

type mas=array [1..20, 1..20] of real;

var A:mas; i,j,g,b,n,m,o:integer;   l:real;

Begin

     clrscr;

     write ('Введите диапазон массива: ');

     readln (g,b);

     write ('Введите размер массива: ');

     readln (n,m);

     Randomize;

     For i:=1 to n do

         Begin

          For j:=1 to m do

             Begin

                  A[i,j]:=random(b-g)+g;

                  write (A[i,j]:5:0, '  ');

             End;

             writeln;

         End;

     O:=0;

     For i:=1 to n do

       Begin

         For j:=1 to m do

             Begin

                  A[3,j]:=O;

             End;

       End;

     For i:=1 to n do

         Begin

           For j:=1 to m do

              If i=1 then

               Begin

                    L:=l+A[i,j];

               End;

         End;

     writeln ('Новый массив');

     For i:=1 to n do

        Begin

         For j:=1 to m do

             Begin

                  write (A[i,j]:5:0, '  ');

             End;

             writeln

        End;

        writeln ('Сумма элементов первой строки= ',l:5:0);

readln;

End.

 Вообщем вот.