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

var

a, b, p, i: integer;

begin

/ / реализовываем ввод

write ('Введите первое число ');

readln (a);

write ('Введите второе число ');

readln (b);

p:=0;

/ / запускаем цикл со счетчиком i от 1 до b,

/ / в цикле к произведению p прибавляем число а

for i: = 1 to b do

p:=p+a;

/ / вывод результата

writeln ('произведение чисел ', a,' и ', b,' равно ', p)

end.