Программа в pascal abc: с клавиатуры вводится число n. заполнить n элементов массива числами 2, 4, 6, 8, 16, и вывести массив. заранее )

Var       a: array of integer;       n, i: integer; begin       readln(n);       a : = new integer[n];             for i : = 0 to a.length-1 do       begin               if i = 0 then                       a[i] : = 2               else                       a[i] : = a[i - 1] * 2;                                     write(a[i], ' ');       end;       end.

// pascalabc.net 3.1, сборка 1172 от 19.02.2016 begin   var m,n: integer;   write('введите количество строк и столбцов массива: ');   readln(m,n);   var a: =matrixrandom(m,n,10,99);   for var i: =0 to m-1 do begin       for var j: =0 to n-1 do print(a[i,j]);       println       end;   var c: char;   writeln('1- поменять местами строки, 2- столбцы: ');   readln(c);   case c of   '1': begin       var r1,r2: integer;       writeln('введите пару номеров строк: '); read(r1,r2);       if (r1< =m) and (r2< =m) and (r1< > r2) and (r1*r2> 0) then begin           dec(r1); dec(r2);           for var j: =0 to n-1 do swap(a[r1,j],a[r2,j]);               for var i: =0 to m-1 do begin                   for var j: =0 to n-1 do print(a[i,j]);                   println               end           end       else writeln('введены недопустимые номера строк')       end;   '2': begin       var c1,c2: integer;       writeln('введите пару номеров столбцов: '); read(c1,c2);       if (c1< =n) and (c2< =n) and (c1< > c2) and (c1*c2> 0) then begin           dec(c1); dec(c2);           for var i: =0 to m-1 do swap(a[i,c1],a[i,c2]);           for var i: =0 to m-1 do begin                   for var j: =0 to n-1 do print(a[i,j]);                   println               end           end       else writeln('введены недопустимые номера столбцов')       end;   else writeln('массив не меняется')   end end. тестовые решения: введите количество строк и столбцов массива: 6 4 63 32 31 99 14 92 54 37 79 90 93 95 41 55 95 26 98 44 57 13 80 45 61 24 1- поменять местами строки, 2- столбцы: 1 введите пару номеров строк: 2 5 63 32 31 99 98 44 57 13 79 90 93 95 41 55 95 26 14 92 54 37 80 45 61 24 введите количество строк и столбцов массива: 3 5 47 17 78 15 37 35 73 60 31 91 13 17 92 95 88 1- поменять местами строки, 2- столбцы: 2 введите пару номеров столбцов: 1 5 37 17 78 15 47 91 73 60 31 35 88 17 92 95 13 введите количество строк и столбцов массива: 3 3 95 60 52 67 35 28 31 94 60 1- поменять местами строки, 2- столбцы: 3 массив не меняется введите количество строк и столбцов массива: 4 3 12 53 74 80 20 44 64 50 43 42 13 35 1- поменять местами строки, 2- столбцы: 1 введите пару номеров строк: 4 7 введены недопустимые номера строк

Значит надо нарисовать таблицу истинности для всех возможных комбинаций значений a и b. таких комбинаций будет 2^2=4 a    b      a+b    a+(a! *b) 1      1        1          1 1      0        1          1 0      1        1          1 0      0        0          0