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

Vara,b,z,x: integer; begin  writeln('введите первое число');   readln(a);   writeln('введите второе число');   readln(b);   writeln('введите третье число равное первому');   readln(z);   a: =1;   while a< =z do   begin  x: =x+b;   a: =a+1;   end;   writeln('произведение равно  = ',x)   end.

Const   n = 6; var   b: array[1..n, 1..n] of integer;   a: array[1..n] of integer;   i, j, s1, s2, max: integer; begin   randomize;   writeln('исходный массив');   //max : = -777; {заведомо меньше меньшего}   for i : = 1 to n do   begin       for j : = 1 to n do       begin           b[i, j] : = random(101) - 50;           write(b[i, j]: 4)       end;       writeln   end;     s1 : = 0; s2 : = 0;   for i : = 1 to n do begin s1 : = s1 + b[1, j]; s2 : = s2 + b[j, j] end;   if s1 > s2 then begin       writeln('сформированный массив');       for i : = 1 to n do       begin           max : = b[i, 1];           for j : = 2 to n do if max < b[i, j] then max : = b[i, j];           a[i] : = max;           write(max: 4)       end   end   else begin       s1 : = 0; s2 : = 0;       for i : = 1 to n do           for j : = 1 to n do               if b[i, j] > 0 then s1 : = s1 + b[i, j]               else s2 : = s2 + b[i, j];       writeln('среднее арифметическое положительных элементов= ', s1/n);       writeln('среднее арифметическое отрицательных элементов= ', s2/n);   end end. тестовые решения: исходный массив   -32  38 -10  42 -30 -35   -13 -22  14  -2 -42    0   -38  18  29  39 -26  19   15  23  -4 -31  21    8   -36  13 -26  -6 -13 -10   -11  38  40  11 -10 -22 среднее арифметическое положительных элементов= 61.3333333333333 среднее арифметическое отрицательных элементов= -69.8333333333333 исходный массив   -37 -22  38  25 -23  21   -33 -50  32  42  -1    7     9  29  -9  21  29  -4   50  13 -33 -13 -47  10   25  46  18  47  15  48   -48  12 -39  -8  34  14 сформированный массив   38  42  29  50  48  34

Const   n = 40; var   x: array[1..n] of integer; procedure initmas(p: integer); var   i: integer; begin   writeln('элементы массива');   for i : = 1 to p do   begin       x[i] : = random(101) - 50;       write(x[i]: 4);   end;   writeln end; function avg(m: integer): real; var   i, s: integer; begin   s : = 0;   for i : = 1 to m do s : = s + x[i];   avg : = s / m end; begin   randomize;   initmas(10);   writeln('среднее арифметическое равно ', avg(10)) end. тестовое решение: элементы массива   44 -40  -1    9  48 -12  48 -39 -13  32 среднее арифметическое равно 7.6