procedure main()
every x:=0to 49&write(50-x|51+x)
end