оператор цикла. помогите решить задачу! ввести два целых числа ,найти их произведение не...

Question

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

Answer 1

var
a,b: integer;
c: real;
begin
writeln ('Введите 1 число');
read (a);
writeln ('Введите 2 число');
read (b);
c:=(a/1)/(1/b);
writeln (c);
end.