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

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

Составление циклических алгоритмов. Использование оператора цикла с постусловием repeat…until. Ввести два числа и найти их произведение, используя только операцию сложения.

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

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

Readln(a,b);
mu:=0;
Repeat
  mu:=mu+a;
  Dec(b);
Until b=0;
Writeln(mu);

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

Пользователю предлагается ввести два числа, которые будут храниться в переменных a и b.
Затем инициализируется переменная mu со значением 0, которая будет использоваться для хранения произведения чисел.
Далее используется цикл repeat-until, который будет выполняться до тех пор, пока значение переменной b не станет равным 0.
Внутри цикла значение переменной mu увеличивается на значение переменной a при каждом выполнении цикла.
Значение переменной b уменьшается на единицу при каждом выполнении цикла.
После окончания цикла значение переменной mu выводится на экран с помощью функции Writeln.