Question

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

Answer 1

program abc;
var a,b,x,p:integer;beginreadln(a,b);p:=0;for x:=1 to b do p:=p+a;writeln(p)end.

Answer 2

program abc;
var a,b,x,p:integer;
begin
readln(a,b);
p:=0;
for x:=1 to b do
p:=p+a;
writeln(p)
end.