Дано число d ,не пользуясь никакими другими операциями,кроме сложения получить 4d и 20d за пять операций. написать программу(паскаль)

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