function sloupcovy_graf
P=[6,4,8,7; 8,5,10,8; 7,6,6,9];
subplot(2,2,1)
bar(P)
legend('salam','sunka','parky','syr')
subplot(2,2,2)
bar3(P,'grouped')
subplot(2,2,3)
bar(P,'stacked')
subplot(2,2,4)
bar3(P,'detached')
end

