Measurements of prompt charm production cross-sections in pp collisions at root s=13 TeV