Составить программу на паскале для вычисления произведения a и b , чтобы она не могла пользоваться командой умножения , a и b натуральные числа

var
   a, b, sum, index: word;
begin
   sum := 0;
   read(a,b);
   for index := 1 to b do sum += a;
   write(sum);
end.