Another way:
data = Polygon[{{1, 1}, {2, 10}, {4, 10}, {4.15, 9.6}, {4.5, 9}, {5,
8.5}, {5.4, 8.3}, {6, 8.2}, {6, 8.6}, {6.1, 9}, {6.25, 9.3}, {6.5,
9.5}, {9.5, 9}, {9.5, 3}, {7, 2.5}, {6.8, 2.2}, {6.4, 1.9}, {6,
1.8}, {5.4, 1.85}, {4.96, 2.2}, {4.8, 2.3}, {4.5, 2.35}, {4.4,
2.35}, {3.9, 2.2}, {3.5, 1.8}}];
Graphics[data]

Area[data]
(* 57.6415 *)