Помогите пожалуйста с задачей, желательно обьяснить)

Если знаки чисел разные  sign(a)  и  sign(b), то выводим произведение с отрицательным знаком, перед умножением чисел вычисляем модули чисел  a и b begin   write('введите a и b через пробел:  ');   readln(a,b);   if sign(a)<>sign(b) then sg:=1   else sg:=0;   a:=abs(a);  b:=abs(b);   c:=0;  for i:=1 to b do     c:=c+a;   if sg=1 then writeln('произведение:  ',-c)   else writeln('произведение:  ',c) end.