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

Спасибо ^^

-77 * (-11) = 0 ? Да-ну

Var A,B,i,S:integer;Ch:Char;BeginS:=0;Write('A = ');ReadLn(A);Write('B = ');ReadLn(B);if ((A<0)and(B>0))or((A>0)and(B<0)) then Ch:='-';A:=Abs(A);B:=Abs(B);For i:= 1 to A do S:=S+B;WriteLn(Ch,S)End.