To summarise the summary, you need two steps.
data a;
input Fruit $ Taste Flavor;
cards;
Apple 1 4
Banana 1 5
Banana 3 4
Apple 2 4
Orange 5 1
Orange 2 4
Orange 3 3
;
run;
proc means data=a noprint nway;
class fruit;
output out=b(drop=_type_ _freq_) mean=;
run;
data c;
set b;
overall=mean(Taste,Flavor);
run;
Note that you could have 2000 oranges and 2 apples, and their respective mean would weight the same. Ask yourself if you really want the mean of the mean, or whether you want to weigh the averages.