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

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.