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

program zz1;

var a, b, r, i:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

if b > 0 then / / для положительного числа

begin

for i:=1 to b do / / организуем цикл

r:=r + a; / / вычисляем сумму чисел

write (' произведение чисел = ', r); / / выводим ответ

end

else / / для отрицательного числа

begin

for i:=b to - 1 do

r:=r + a;

write (' произведение чисел = ', - r);

end;

end.