Отыскать произведение x*n с поддержкою цикла не используя операцию умножения

program zz1;

var x, n, i, p:integer; // задаем переменные целого типа

begin

write( введите заданное n );  // вводим с клавиатуры заданное число n

read(n);  

write( введите данное x );  // вводим с клавиатуры заданное число х

read(x);

p:=0;  // задаем изначальное значение для произведения

for i:=1 to n do  // организуем цикл на n повторений

p:=p + x; // получаем произведение не используя операцию умножения, прибавляя к сумме данное число х n раз

write( творение n на х = , p); // выводим ответ

end.