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

vara,b,p,i,z:integer; beginwriteln(\'a\');readln(a);writeln(\'b\');readln(b); z:=b;if b<0 then z:=-b; for i:=1 to z do begin p:=p+a; end; if b<0 then p:=-p; writeln(\'p=\',p); end.0