SELECT ?cl ?neighl ?border ?bl ?len ?len2
WHERE
{ ?c wdt:P31/wdt:P279* wd:Q3624078 . ## sovereign state
  FILTER NOT EXISTS { ?c wdt:P576 ?X }  ### not dissolved date
  ?c p:P47 ?stmt .       ## P47: shares border with
    ?stmt ps:P47 ?neighb .
  FILTER NOT EXISTS { ?neighb wdt:P576 ?Y }  ### not dissolved date
  ?c rdfs:label ?cl .
  ?neighb rdfs:label ?neighl .
  ?stmt pq:P805 ?border .   ### P805: isSubjectOf - "Reification"
  ?border rdfs:label ?bl ;
          wdt:P2043 ?len; p:P2043/ps:P2043 ?len2.  ### P2043: length
  filter (lang(?cl)="en")
  filter (lang(?neighl)="en")
  filter (lang(?bl)="en")
  ## filter (str(?cl) = "Germany")
}
order by ?cl ?neighl