Дано число D ,не пользуясь никакими другими операциями,кроме сложения получить 4D и

Ну, если присваивание это не операция то вот: begin d2:=d; d:= d+ d;//2d d:= d+ d;//4d d:= d + d2;//5d d:= d+ d;//10d d:= d+ d;//20d end.