Написать программу перемножающую целые числа без использования операции «*». паскаль абс

P.S. Благодарность и лучший ответ не помешает.

var a, b, c, i:integer;
begin
read (a,b);
c:=0;
for i:=1 to b do
c:=c+a;
write (c, );
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.