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

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

program multiplication;
var
a, b, result: integer;
begin
// ввод двух чисел
writeln('Введите первое число: ');
readln(a);
writeln('Введите второе число: ');
readln(b);
// инициализация результата
result := 0;
// вычисление произведения двух чисел без умножения
while (b <> 0) do
begin
if (b mod 2 = 1) then
result := result + a;
a := a * 2;
b := b div 2;
end;
// вывод результата
writeln('Произведение двух чисел равно: ', result);
end.