Ввести два целых числа, найти их произведение не используя операцию умножения.

program zz1;

var a, b, r, i:integer; / / задаем переменные целого типа

begin

write (' введите первое заданное число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе заданное число '); / / вводим с клавиатуры второе число

read (b);

for i:=1 to b do

r: = r + a; / / вычисляем произведение заданных чисел, для этого b раз прибавляем к сумме число а

write (' произведение заданных чисел = ', r); / / выводим ответ

end.