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

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

program Multiplication;

var
x, y, product: integer;

begin
writeln('Enter first number: ');
readln(x);

writeln('Enter second number: ');
readln(y);

product := 0;

while y > 0 do
begin
if y mod 2 = 1 then
product := product + x;

end;

writeln('Product is: ', product);
end.