Напишите программу, которая вводит два целых числа и находит их произведение, не используя операцию умножения. Учтите, числа могут быть отрицательными. ЧЕРЕЗ ОПЕРАЦИЮ REPEAT.

Var

a,b,x,y,z:integer;

 begin

writeln('Введите первое число');

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.

Объяснение:

вот и все