program sportka_staturad;
uses Crt;
var i,k,j : integer;
  c : array [1..6] of integer;
  b : array [1..49] of integer;
  p : boolean;
begin
  Clrscr;
  Randomize;
  for i:=1 to 49 do b[i]:=0;
  for j:=1 to 365 do begin
    for i:=1 to 6 do begin
      repeat
        p:=true;
        c[i]:=random(49)+1;
        for k:=(i-1) downto 1 do
          if c[i]=c[k] then p:=false
      until p;
      b[c[i]]:=b[c[i]]+1;
    end;
  end;
  for i:=1 to 49 do write(b[i],' ');
  writeln('Koniec programu.');
  readln;
end.
