Вывести произведение введённых чисел - Pascal ABC

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

Напишите программу, которая вводит два целых числа и находит их произведение, не используя операцию умножения. Учтите, что числа могут быть отрицательными. Входные данные Входная строка содержит два целых числа. Выходные данные Программа должна вывести произведение введённых чисел. Примеры входные данные 6 12 выходные данные 72 входные данные -7 15 выходные данные -105

Решение задачи: «Вывести произведение введённых чисел»

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

var
  a,b,i:integer;
  r:real;
begin
  read(a,b);
  r:=0.0;
  if a>0 then
    for i:=1 to a do r:=r+b
  else
    for i:=-1 downto a do r:=r+b;
  if ((a<0) and (b>0)) or ((a>0) and (b<0)) then
    begin
      if r>0 then r:=-r;
     end else
      if r<0 then r:=-r;
  writeln(r:0:0);
end.

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

В начале объявляются переменные: a, b, i - целочисленные и r - вещественный.
Затем происходит чтение значений переменных a и b.
Переменная r инициализируется значением 0.0.
Далее проверяется условие: если a > 0, то переменная r увеличивается на сумму b, умноженную на i от 1 до a. Если a < 0, то переменная r увеличивается на сумму b, умноженную на i от -1 до a. Если условие выполняется, то значение r может быть отрицательным, и в этом случае оно становится положительным или нулем.
После этого выводится значение переменной r.
Код завершается.