var aeg1, buss1, aeg2, buss2, i, min, max, sum, koguaeg, n: integer;
kesk: real;
begin
  randomize;
  writeln('Mitu katset?'); readln(n);
  aeg1:=random(6);  buss1:=random(5)+6;
  aeg2:=random(11);  buss2:=random(9)+22;
  koguaeg:=aeg1+buss1+aeg2+buss2;
  min:=koguaeg; max:=koguaeg; sum:=koguaeg;
  for i:=2 to n  do
  begin
    aeg1:=random(5);
    buss1:=random(4)+5;
    aeg2:=random(7);
    buss2:=random(5)+20;
    koguaeg:=aeg1+buss1+aeg2+buss2;
    if koguaeg<min then min:=koguaeg;
    if koguaeg>max then max:=koguaeg;
    sum:=sum+koguaeg;
    kesk:=sum/i;
  end;
    writeln(i:4,'.  keskmine:',kesk:5:3,'    min:', min,'    max:', max);
end.