Увеличить значение переменной С в двое не используя операции умножения

с+с вот просто же если не правильно то  не обижайся пж

var c:integer;beginwrite('Введите с: ');readln(c);c:=c+c;writeln('c = ',c);end.Пример:Введите с: 16c = 32