netlogo checking patch color

Question

in simple words what I am struggling to do is:

if (colour of any patch = red) then execute some code

Answer 1

if any? patches with [pcolor = red] [
  print "yes, there is at least one red patch"
]

Answer 2

Only a turtle can check the pcolor. So this works:

ask turtles [show pcolor]

But this does not work (typed in on the Observer> prompt):

show pcolor