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