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

Var a, b, p, n:integer;

begin

writeln ('Введите два числа:') ;

readln (a, b) ;

n:=abs (b) ;

if (a=0) or (b=0) then

writeln (a,'*', b,'=0')

else begin

while (n0) do begin

n:=n-1;

p:=p+abs (a)

end;

if (a>0) and (b>0) then writeln (a,'*', b,'=', p) ;

if (a<0) and (b<0) then writeln (' (', a,') ','*',' (', b,') ','=', p) ;

if (a>0) and (b<0) then writeln (a,'*',' (', b,') ','=-', p) ;

if (a0) then writeln (' (', a,') ','*', b,'=-', p) ;

end;

end.