Составить алгоритм умножения двух целых чисел, используя сложение и вычитание - Turbo Pascal

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

Пусть компьютер способен выполнять только две арифметические операции - сложение и вычитание. Составить алгоритм умножения двух целых чисел.

Решение задачи: «Составить алгоритм умножения двух целых чисел, используя сложение и вычитание»

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

var
    a, b, i, s: integer;
begin
    writeln('Enter two numbers: ');
    read(a, b);
    s := 0;
    i := 1;
    repeat
        s := s + b;
        i := i + 1
    until i > abs(a);
    if a < 0 then
        s := -s;
    writeln(s)
end.

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

В начале объявляются переменные: a, b, i, s - целочисленного типа.
Выводится сообщение «Enter two numbers: », предлагающее пользователю ввести два числа.
С помощью функции read считываются два числа из ввода пользователя и сохраняются в переменных a и b.
Инициализируется переменная s со значением 0 и переменная i со значением 1.
Запускается цикл repeat, который будет выполняться до тех пор, пока i больше или равно абсолютному значению a (то есть, пока i больше или равно 0).
Внутри цикла переменная s увеличивается на значение переменной b, а переменная i увеличивается на 1.
Если a меньше нуля, то значение переменной s инвертируется, то есть становится отрицательным.
По завершении цикла выводится значение переменной s.