procedure  main()
a:=0
every write(a:=(i:=0to 50)*a+(-1)^i)
end