pr1

uses graphabc;
var i,j,a,x0,y0,w,k,b:integer;
    x,summ,mx,hi,kr:real;
    h:array[1..100] of integer;
    s:string;
    c:Color;
begin
   for i:=1 to 1000000 do
   begin
      for j:=1 to 1000 do
         begin
         x:=random(1000)/1000;
         summ:=summ+x;
         end;
      while summ>b*10 do inc(b);
      inc(h[b]);
      summ:=0;
   end;
   w:=5;{ширина столбцов}
   x0:=50;{левый край диаграммы}
   y0:=windowheight-80;{нижний край}
   mx:=h[1];
   for i:=1 to 100 do
   if h[i]>mx then mx:=h[i];{находим максимум}
   hi:=(y0-40)/mx;{масштаб по вертикали}
   for i:=1 to 100 do
    begin
      c:=clRandom;
      Pen.Color:=c;
      Brush.Color:=c;
      Brush.Style:=bsSolid;
      rectangle(x0+w*(i-1),y0-round(h[i]*hi),x0+w*(i-2),y0);
      Brush.Style:=bsClear;
    end;
      textout(x0+w*30,y0+10,'интервалы от 0 до 100 с шагом 10');
end.