program LosingRValue;
  var a;
begin
  a :=
end