array for hist

var i,j,a,b:integer;
    x,summ:real;
    h:array[1..100] of integer;
    hist_mini:array[1..10] of integer;
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;
   for i:=1 to 100 do writeln('h[',i,']=',h[i]);
end.