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

Var c:integer;
begin
write('Введите с: ');
readln(c);
c:=c+c;
writeln('c = ',c);
end.

Пример:
Введите с: 16
c = 32

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