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

Var A,B,i,S:integer;
Ch:Char;
Begin
S:=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.