Cool post Vitaliy! I thought I would leave here a fun speculation about the oldest unknown shipwreck. I would be willing to bet that there are many ships several meters or so underground, near the Richat Structure in Mauritania.

GeoGraphics[GeoPosition[{21.135, -11.4016}], 
 GeoBackground -> "Satellite", GeoRange -> Quantity[15, "Miles"]]

The landscape shows signs of large-scale flooding, or something washing/dragging across it.

GeoGraphics[GeoPosition[{21.135, -11.4016}], 
 GeoBackground -> "Satellite", GeoProjection -> "Mercator", 
 GeoRange -> Quantity[300, "Miles"]]
GeoGraphics[GeoPosition[{21.135, -11.4016}], 
 GeoBackground -> "ReliefMap", GeoProjection -> "Mercator", 
 GeoRange -> Quantity[100, "Miles"]]

There are three good videos on this guy's youtube channel explaining. Here is the first: https://youtu.be/oDoM4BmoDQM

Great post! Thanks for sharing. I was curious about the existence of other shipwrecks in the Black Sea and in order to answer this question I started a little computational excursion. Using GeoEntities we can discover shipwrecks:

We can retrieve the "DateSank" and "Position" properties using EntityValue:

We can observe that half of them sank during the second World War:

Using their GeoPosition we can find their Wikipedia articles via WikipediaSearch:

One of the wreck articles can not be retrieved via its "GeoPosition". So, we need to search it using its name instead:

Now lets map the locations of the shipwrecks with GeoGraphics:

Using the property "ArticlePlaintext" we can create a quick summary with WordCloud:

Another interesting property of WikipediaData is "ImageList", but it retrieves all kinds of images from the article. So, we can try to filter the images using ImageIdentify:

Amazingly ImageIdentify successfully identifies even the type of ship in this particular case. And we can tweak ImageIdenty for our particular problem and remove the non-ship images:

Feel free to play with the attached notebook.

Attachments:

Black_Sea_Shipwrecks.nb