begin var x;
      x:=123;
      begin var x;
            begin x:=456
            end;
            x:=x+1
      end;
      write x
end