дано число 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.