Найти произведение 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.