Вычислить произведение 2-ух натуральных чисел используя лишь операцию сложения

В паскале

Я, в основном, программы на С + + пишу, но из школы про Паскаль кое-что помню (в смысле, попытаюсь написать на Паскале).

Program A1;

var a, b, c, i:integer;

begin

write ('Enter the a: ');

read (a);

writeln ('Enter the b: ');

read (b);

с:=0;

for i:=1 to a Do

c:=c+b;

writeln ('a*b=', c:5:0);

end.

Объясняю (начинаю сразу с цикла for) : что значит произведение двух натуральных чисел а и b - это означает, сложить b с самим собой по а раз (можно и наоборот). Например, a=5, b=3. Переменную с=0 будем складывать с b.

i=1 c=5+0;

i=2 c=5+5;

i=3 c=10+5; / / c=15

Вот и есть ответ: 5*3=15.