procedure main() while a:=read()?write(tab(-*a/2)," ",tab(0)) end