Для заданных целых переменных m и n (m>=0) вычислить

[Екатерина23]

Для заданных целых переменных m и n (m>=0) вычислить:
а)y=m*n, не используя операцию умножения;
б)y=m^n, не используя операцию возведения в степень.

[Serge_Bliznykov]

a)

p:= 0;
for i:=1 to m do
  p := p + n;

b)

p:= 1;
for i:=1 to n do
  p := p * m;

внимание!ничего не сказано, про n, является ли число положительным (n>0),
но данный пример кода будет работать только строго при n>0!