Modifiziert durch Pascal