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

program zz1;

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

begin

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

read(a);  

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

read(b);

for i:=1 to b do

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

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

end.