Найти произведение чисел, не используя операцию умножения - Pascal ABC

Формулировка задачи:

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

Решение задачи: «Найти произведение чисел, не используя операцию умножения»

Листинг программы

var
a,b,p,i,z:integer;
 
begin
writeln('a');
readln(a);
writeln('b');
readln(b);
 
z:=b;
if b<0 then z:=-b;
 
for i:=1 to z do
  begin
  p:=p+a;
  end;
 
if b<0 then p:=-p;
 
 
writeln('p=',p);
 
end.

Объяснение кода листинга программы

В начале объявляются переменные a, b, p, i, z: они будут использоваться в коде.
Затем происходит вывод строки a и чтение значения переменной a. Аналогично происходит чтение значения переменной b.
Переменная z инициализируется значением переменной b. Если b меньше нуля, то значение переменной z меняется на -b.
Далее идет цикл for, который выполняется от 1 до z. Внутри цикла переменная p увеличивается на a.
После цикла проверяется значение переменной b. Если оно меньше нуля, то значение переменной p меняется на -p.
В конце выводится строка p= и значение переменной p. Таким образом, в данном коде производится нахождение произведения чисел без использования операции умножения.