uses graph;
const
  katsete_arv=300;
  jaotuste_arv=6;
var i,j, abi, min, tulba_vahemik, d, m: integer;
s: string;
aeg: array[1..katsete_arv]of integer;
tulp: array[0..jaotuste_arv] of integer;
begin
 randomize;
 for i:=1 to katsete_arv do
  aeg[i]:=random(6)+5+random(4)+random(9)+22+random(9);
 for i:=1 to katsete_arv-1 do begin
  min:=i;
  for j:=i to katsete_arv do
      if aeg[j]<aeg[min] then min:=j;
  abi:=aeg[i]; aeg[i]:=aeg[min]; aeg[min]:=abi;
 end;
 tulba_vahemik:=24 div jaotuste_arv+1;
 for i:=1 to katsete_arv do
  inc(tulp[(aeg[i]-27) div tulba_vahemik]);
  d:=detect; initgraph(d, m, '');
  setTextStyle(DefaultFont, VertDir, 1);
 for i:=0 to jaotuste_arv-1 do
  if tulp[i]>0 then
 begin
     bar(100+ i*400 div jaotuste_arv,
     400-round(tulp[i]*100.0 / (katsete_arv div jaotuste_arv)),
          100+ (i+1)*400 div jaotuste_arv,400);
      str(27+i*tulba_vahemik+tulba_vahemik div 2, s);
     outtextxy(100+ round((i+0.5)*(400 div jaotuste_arv)), 440,s)
 end;
 setTextStyle(DefaultFont, HorizDir, 1);
 str(aeg[round(katsete_arv/100*97)], s);
 outtextxy(1, 10,'97% kordadel hilinemata kohale saamiseks tuleb  v„ljuda ' );
 outtextxy(1, 30, s+' minutit varem ');
 readln;
 closegraph;
end.