var i:comp;begin for i:=-82to-1do write(-i)end.