Составьте алгоритм нахождения произведения z двух натуральных чисел х и у без использования операции умножения. помогите пожалуйста
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.
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.