{See programm arvutab v„lja ,et kui palju sul l„heb aega , et jäuda Pedast Tipini}
program funtsiooni_graafik;
uses graph;
var aeg,oota1,tramm,oota2,troll:integer;
m,d,i,a,b,c,l,e,f,g: integer;
begin
randomize;
  for i:=1 to 500 do
begin
 oota1:=random(6);
 tramm:=random(5)+4;
 oota2:=random(8);
 troll:=random(9)+22;
 aeg:=oota1+tramm+oota2+troll;
case aeg of
 30..32:a:=a+1;
 33..35:b:=b+1;
 36..38:c:=c+1;
 39..41:l:=l+1;
 42..44:e:=e+1;
 46..48:f:=f+1;
 49..50:g:=g+1;
end;
end;
d:=detect; initgraph(d,m,'');
  bar(120,350-2*a,165,350);
  bar(170,350-2*b,215,350);
  bar(220,350-2*c,265,350);
  bar(270,350-2*l,315,350);
  bar(320,350-2*e,365,350);
  bar(370,350-2*f,415,350);
  bar(420,350-2*g,465,350);
readln;
closegraph;
  end.