var
  color, x, y: Integer;

begin
  PickColor(color, x, y);
  WriteLn('Color Picked: ' + IntToStr(color) + ' at (' + IntToStr(x) + ', ' + IntToStr(y) + ')');
end.