Вычислить произведение двух чисел без использования операции умножения - Free Pascal

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

Усердно грызу (по мере наличия свободного времени) книжку "Песни о Паскале", хочу все таки научится чему нибудь. Вот такое задание: Пусть программа запросит два числа N и M, а затем вычислит их произведение без использования операции умножения. Подсказка: организуйте цикл суммирования N раз числа M. Вообщем долго думал, подсмотрел.....вроде работает.....

                    Листинг программы
                
 
                        
                          
                    
var
n,m,a,b:integer;
begin
writeln('Введите число 1');
readln(n);
writeln('Введите число 2');
readln(m);
for a:=1 to n do b:=b+m; 
writeln(b);
readln;
end.

Убейте меня, не понимаю я, причем тут 'b', откуда оно взялось? Все понятно до DO, потом не понимаю.....откуда 'b'?

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

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

.............
b := 0;
for a:=1 to n do b:=b+m;
.............

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

Задаются начальные значения переменных a и b равные 1 и 0 соответственно.
Задается условие цикла for, который будет выполняться от 1 до n.
Внутри цикла значение переменной b увеличивается на m.
После выполнения цикла значение переменной b будет содержать произведение чисел a и m.