main=do
 getLine
 xyh<-map(map read.words).lines<$>getContents
 let[sx,sy,sh]=head$filter((>0).(!!2))xyh
 putStrLn$unwords$map show$head[[x,y,h]|x<-[0..100],y<-[0..100],let h=sh+(abs$sx-x)+(abs$sy-y),ok x y h xyh]
ok sx sy sh[]=True
ok sx sy sh([x,y,h]:xyh)
 |max(h-(abs$sx-x)-(abs$sy-y))0==sh=ok sx sy sh xyh
 |otherwise=False