program sportka;
uses Crt;
var i,k : integer;
  c : array [1..6] of integer;
  p : boolean;
begin
  Clrscr;
  Randomize;
  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;
  end;
  for i:=1 to 6 do write(c[i],' ');
  writeln('Koniec programu.');
  readln;
end.
