program Koolitee;
uses graph;
const
katsete_arv=180; jaotuste_arv=4; vahemaa=200;
kiirus=11.11;  tund=7;  mn=052;  sek=000000;
var i,j,abi,min,d,m,u:integer;
tulbavahemik:integer;
s:string;
saabaeg:real;
kiirus_teel:integer;
autos: integer;
aeg:array[1..katsete_arv] of integer;
tulp:array[0..jaotuste_arv] of integer;

begin
     randomize;
     begin
       autos:=10+random(190);
       for i:=1 to katsete_arv  do
       aeg[i]:=(round(autos/kiirus));
       writeln('Auto kiirus on ',aeg[i],' m/s');
       readln;
     end;
     for i:=1 to katsete_arv-1 do
     min:=i;
    { for j:=i to katsete_arv do }
         if
         aeg[i]<5
          then
            writeln('Laps ei joua minna le tee ')
            else
            begin

                for u:=1 to katsete_arv do    begin
                kiirus_teel:=(round(66)+random(33));

                aeg[u]:=(round(300/round(kiirus_teel))+round(500/(kiirus_teel)));
                      inc(tulp[(aeg[u]-5)div 2]);
                 end;
                writeln('Laps konnib kooli ',aeg[u], ' minutit');
                readln;
                end;
   begin
   { tund:=700000;       mn:=052;         sek:=00000; }
     saabaeg:=tund+mn+sek+aeg[u];
     if saabaeg<080100 then
         writeln('Laps j”udis ”igeks ajaks kooli')
         else
         writeln('Laps hilines kooli');
         readln;

           end;

{     tulbavahemik:= 24 div jaotuste_arv+1;
     for i:=1 to katsete_arv do
     inc(tulp[(aeg[i]-27) div tulbavahemik]);}

     d:=detect; initgraph(d,m,'');
     setTextStyle(DefaultFont, VertDir,1);
     for i:=0 to jaotuste_arv do
     begin
     if tulp[i]>0 then
     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(5+i*2,s);
     outtextxy(100+round(i+0.5)*
                                (400 div jaotuste_arv),400,s)
     end;
     setTextStyle(DefaultFont, Horizdir,1);
     str(aeg[round(katsete_arv/100*97)],s);
     outtextxy(1,10,'97%-'+s+'minutit varem');
     readln;
      closegraph;
      end.