Πεψενθε 

`and`(p = `*`(`+`(`+`(15, 13), 4), `/`(1, 2)), `*`(`+`(`+`(15, 13), 4), `/`(1, 2)) = 16) 

`and`(S = sqrt(`+`(`*`(13, `*`(`*`(16, 3))))), `and`(sqrt(`+`(`*`(13, `*`(`*`(16, 3))))) = 24, 24 = `+`(`*`(16, `*`(r))))) 

`and`(r = `*`(24, `/`(1, 16)), `*`(24, `/`(1, 16)) = `/`(3, 2)) 

d = 3