procedure main();every write(ior((n:=1to 87)+(2*n)^.5+.5,0));end