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

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

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

result := 0;

if (a < 0) and (b < 0) then
begin
a := -a;
b := -b;
end
else if b < 0 then
begin
a := a + b;
b := a - b;
a := a - b;
end;

while b <> 0 do
begin
result := result + a;
b := b - 1;
end;

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