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

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.ВТОРОЙ ВАРИАНТВЫПОЛНЕНИЯ ПРОГРАММЫ:vara,b,x,y,z:integer; beginwriteln(\'Введите первое число\');readln(a);writeln(\'Введите второе число\');readln(b); z:=b;if b<0 then z:=-b; for y:=1 to z do begin x:=x+a; end; if b<0 then x:=-x; writeln(\'Произведение чисел = \',x); end.