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

Предыдущий
вопрос Следующий
вопрос

program FindMultiplication
va
a, b, result: integer
begi
write('Enter first integer: ')
readln(a)
write('Enter second integer: ')
readln(b);

result := 0;

if (a < 0) and (b < 0) the
begi
a := -a
b := -b
en
else if b < 0 the
begi
a := a + b
b := a - b
a := a - b
end;

while b <> 0 d
begi
result := result + a
b := b - 1
end;

writeln('The multiplication of ', a, ' and ', b, ' is: ', result)
end.