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

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

Введите два числа (например A=5 и В=8  5 раз суммируем 8+8+8+8+8) и найдите их произведение, используя только операцию сложения.

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

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

var a, b, t: Integer; r: Longint;
begin
  Read(a,b);
  if a<b then begin
    t:=a; a:=b; b:=t;
  end;
  r:=0; for t:=1 to b do r:=r+a;
  WriteLn(r);
end.

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

Переменные a, b, t, r инициализируются типом Integer.
Используя функцию Read, программа запрашивает у пользователя ввод двух чисел.
Если первое число (a) меньше второго числа (b), то значения переменных a и b меняются местами с помощью операции присваивания.
Переменная t инициализируется значением a.
Переменная r инициализируется нулем.
Используя цикл for, программа выполняет операцию сложения a к r от 1 до b.
Результат выводится на экран с помощью функции WriteLn.