Напишите программу, которая получает два целых числа и находит их произведение, не используя операцию умножения. учтите, что числа могут быть отрицательными. пример: введите два числа: 10 -15 10*(-15)=-150 это цикл с условием ( while) паскаль заранее

javascript: var a = parseint( b = parseint( c = 0, сч = 0; while (сч < math.abs(b)) { c += a; сч++; } if (b < 0) c = -c; alert(c);

а вот и pascal. надеюсь, не ошибся.

program pr;

var a, b, c, cnt: integer;

begin

  a : = readln();

  b : = readln();

  c : = 0;

  cnt = 0;

  while (c < abs(b)) begin

    c : = c + a;

    cnt : = cnt + 1;

  end;

  writeln(c);

end.

1+2+3+4-5+6+7-8-9=1

program xxx;

  var i, j, k, min : integer;

              a: array[1..10, 1..20] of integer;

              b: array[1..10] of integer;

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.