Thanks a lot for your answers. I am very grateful.

@Markiyan Hirnyk Thanks for your answer, howver, I am not interested in a numerical solution. I am looking for an algebraìc solution.

@Kitonum Thanks again. Wonderful, in your figure the y-axis indications do not overlap anymore. If I implement your Maple text in my Maple I still get overlap. Which numbers should I change in order to get no-overlap and, at the same time, do not loose the above part of the histogram.

In case of emergency I can of course use the histogram in your file.

Sorry for all these questions, but I am an illiterate with regards to Maple histogtam.

@Kitonum 

Please, notice that the probability formula is different for k = 1, ..., 5 and for k = 6, ..., 10!

@Kitonum 

Thanks again for your quick reply. The y-axis indication is correct now, but the arrangement of the bars has been changed. Pitty enough I do not know how to attach my original Maple file (copy and paste do not seem to work). Perhaps you can help me with this too. 

@Kitonum 

Thanks a lot for all your help. I did run the following Maple text (between dashes):

--------------------------------------------------

Hist := proc (X::list, P::list, h::numeric, C::{string, symbol} := blue, V::list := [X[1]-0.6*h .. X[-1]+0.6*h, 0 .. max(P)])

local n, S, A, B;

n := nops(X);

S := seq(piecewise(X[i]-(1/2)*h <= x and x <= X[i]+(1/2)*h, P[i]), i = 1 .. n);

A := plot([S], x = X[1]-(1/2)*h .. X[n]+(1/2)*h, color = C, filled);

B := plot([S], x = X[1]-0.51*h .. X[n]+0.51*h, tickmarks = [default, [seq(P[i] = P[i], i = 1 .. n)]], color = black, thickness = 2);

plots:-display(A, B, view = V);

end proc:

j:=6;

k:=1;
P[k]:=(k*(j-2)+j)/(j*(j-1)**2);
k:=2;
P[k]:=(k*(j-2)+j)/(j*(j-1)**2);
k:=3;
P[k]:=(k*(j-2)+j)/(j*(j-1)**2);
k:=4;
P[k]:=(k*(j-2)+j)/(j*(j-1)**2);
k:=5;
P[k]:=(k*(j-2)+j)/(j*(j-1)**2);
k:=6;
P[k]:=((2*j-1-k)*(j-2))/(j*(j-1)**2);
k:=7;
P[k]:=((2*j-1-k)*(j-2))/(j*(j-1)**2);
k:=8;
P[k]:=((2*j-1-k)*(j-2))/(j*(j-1)**2);
k:=9;
P[k]:=((2*j-1-k)*(j-2))/(j*(j-1)**2);
k:=10;
P[k]:=((2*j-1-k)*(j-2))/(j*(j-1)**2);

Hist([1,2,3,4,5,6,7,8,9,10],[P[1],P[2],P[3],P[4],P[5],P[6],P[7],P[8],P[9],P[10]],0.8,cyan,[-0.5 .. 11.5,-0.05 .. 0.2]);

--------------------------------------------------

But in the histogram I got overlap in the y-axis indication. Do you know how to avoid this?

Thanks a lot. I have still one smal question. For that questopon I like to show my Maple sheet. I do not know how to do this. Copy and paste does nit work. Do you know how to do this?

Thanks a lot for your very helpful answers.

Now I have still a last question.

For that question I have to show you my Maple sheet, but I do not know how to copy and pate my Maple sheet here.

Perhalps you can tell em how to dothis. 

For the vertical bars the numbers are now 1, 3, 5, 7.

What should I do if I want them to be 1, 2, 3, 4?