Напишите программу, перемножающую целые числа без использования операции «*». например, при умножении целых чисел n*m число m надо сложить само с собой n раз (m+m+…+m). на языке паскаль.

Var m,n,i:integer;

begin
writeln('введите число ');

readln(n);
writeln('на что умножить? ');
readln(m);
for  i:=1 to m-1 do n:=n+n;
writeln(n);
end.