Если знаки чисел разные 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.