Напишите программу в паскале, которая вводит два целых числа и находит их произведение, не используя операцию умножения.учтите, что числа могут быть отрицательными.

Var x,y,p,i: integer; begin readln(x,y); for i: =1 to abs(y) do  p: =p+x; if y< 0 then p: =-p; writeln(p); end.

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.

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var k: =readinteger('номер столбца для подсчета суммы: ');   writeln('s=',a.col(k-1).sum) end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив [5,8] ***   91 -39  49  29 -60 -58 -88  -5   -80  -5  58  38 -75 -76 -54 -33   -60 -66  98 -88  96 -48  94    2   -4  81 -38 -91  26 -91  32    7   30  83  30    3  22  93  31    0 номер столбца для подсчета суммы: 4 s=-109 на случай, если я неверно понял и нужна сумма по каждой колонке: begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   a.cols.select(s-> s.sum).println end. пример количество строк в массиве: 4 количество столбцов в массиве: 7 *** исходный массив [4,7] ***   13 -14  82  88 -38  55  89   11  74 -35  85  13  27 -80   -88  76 -64 -88 -50  28 -13   90  87 -71 -94 -59  95 -83 26 223 -88 -9 -134 205 -87