Даны натуральные числа a b вычисли произведение a*b и используя в программе лишь операции плюс минус равно больше или меньше​

Program z; var       i : integer; begin       writeln('введите число'); readln(i);       if i mod 2 = 0             then                   writeln('число чётное')             else                   writeln('число не чётное');       readln; end. program z; var       i : integer; begin       writeln('введите число'); readln(i);       if i mod 3 = 0             then                   writeln('число делится на 3')             else                   writeln('число не делится на 3');       readln; end. program z; var       i: array[1..6] of byte;       x: byte; begin       for x: =1 to 6 do                   begin                   writeln('введите ', x,' цифру из 6 ');                   read(i[x]);             end;       if (i[1]+i[2]) = (i[4]+i[5]+i[6])             then                   writeln('билет счастливый')             else                   writeln('билет не счастливый');       readln; end.             program z; var       i : integer; begin       writeln('введите число'); readln(i);       if i mod 6 = 0             then                   writeln('число делится на 6')             else                   writeln('число не делится на 6');       readln; end. program z; var       a,b: integer; begin       writeln('введите число a'); readln(a);       writeln('введите число b'); readln(b);       if b mod a = 0             then writeln('число а делится нацело на число в')             else writeln('число а не делится нацело на число b');       readln; end.            

Uses crt; const q=1000; var a: array[1..q,1..q]of integer; m,n,i,j,c,k,buf: integer; b: array[1..q]of integer; begin      writeln('n,m ? ')    ;     readln(n,m);     writeln('как заполнять матрицу ? ');             writeln(' нажмите 1 при датчика, 2 - ввод с клавиатуры');   {выбор действия при заполнении}                         readln(c);                     case c of                             1: for i: =1 to n do                        begin                            for j: =1 to m do                                begin                                    a[i,j]: =random(100);                                     write(a[i,j]: 4);                                 end;                               writeln;                           end;                     2:                     begin                      for i: =1 to n do                         begin                             for j: =1 to m do                               readln(a[i,j]);                           end;                           clrscr;                         for i: =1 to n do                             begin                                 for j: =1 to m do                                   write(a[i,j]: 4);                                 writeln;                             end;     end;                   end; writeln('формирование массива'); for i: =2 to n do     begin         if i mod 2=0 then                 for j: =1 to m do                       if a[i,j]> 2 then                           begin                               k: =k+1;                                 b[k]: =a[i,j];                             end;       end; writeln; for i: =1 to k do     write(b[i]: 4); writeln; {сортировка} for i: =1 to k -1 do       for j: =i+1 to k do           if b[i]< b[j]then               begin                     buf: =b[i];                     b[i]: =b[j];                     b[j]: =buf;               end; {вывод массива} for i: =1 to k do     write(b[i]: 4); end.