program MultUsingAddition;
var
x, y, mul, i: integer;
begin
writeln('Enter two natural numbers:');
readln(x, y);

mul := 0;
for i := 1 to y do
begin
mul := mul + x;
end;

writeln('The product of ', x, ' and ', y, ' is ', mul);
end.