Side effect:

Function fv(Var x:…): …;
  …
Begin
  …
  b:=fv(a)+fv(a); { b? }
  b:=2*fv(a); { b? }
  …
End.