Dim $color[5] = [$grinK, $cherep ,$elloweK, $lechenie, $redK]
For $pp = 0 To 4 Step 1
For $a = 0 To UBound($color) - 1
$Pozik1 = PixelSearch($XB, $YB , $XN, $YN, $color[$pp], $shade)
If Not @error Then
$PoleMassiv[0][0] = $a
Else
$PoleMassiv[0][0] = 0
EndIf
Next
Next