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

Program mult; var x, n, i: integer; begin write('Введите x и n через пробел'); readln(x, n); if n>0 then for i:=1 to n-1 do x:=x+x else for i=1 downto n do x:=x-x; writeln('x * n =', x) end.