program sportlotto; 
 
 type num=1..49;
 var i:1..6;loto:num;  

   begin randomize; 
     for i:=1to 6do 
      begin  
        loto:=random(49)+1; 
        writeln('Nr.',i:2,loto:6)  
       end 
   end.

Правда он здесь уже в моей интерпритации.

procedure FillVariation(var variation:string);
var
  i: integer;
begin
  variation := '';
  for i := 1 to 6 do
    begin
      insert(chr(i), variation, random(i));
    end;
end;

program sportlotto;

{$APPTYPE CONSOLE}

 var i:1..6;q,previous: byte;
 variation:string;

   begin
   randomize;
  variation := '';
  previous:=0;
  for i := 1 to 6 do
    begin
      if i=6 then
        q := previous+random((i-1)*8+9-previous)+1
      else q := previous+random(i*8-previous)+1;
      previous:=q;
      insert(chr(q), variation, random(i));
    end;

  for i:=1to 6do
        writeln('Nr.',i:2,ord(Variation[i]):6);
  readln;
   end.

var
  s: set of byte;
  i, X: byte;
begin
  { Randomize }
  s := [];
  for i := 1 to 6 do
  begin
    repeat
      X := random(49) + 1;
    until not (X in s);
    writeln('#', i:2, ' = ', X);
    s := s + [X];
  end;
end.

Цитата(sheka @ 10.04.2010 1:37)

пример из DRKB. Правда он здесь уже в моей интерпритации.

  ...
      insert(chr(i), variation, random(i));

      insert(chr(i), variation, random(i)+1);

Цитата(Lapp @ 10.04.2010 8:13)

const
  n= 1000000;  // диапазон

var
  s: array[0..n]of integer;
  i,x,l: LongInt;

begin
  Randomize;
  for i:=0 to n do s[i]:=0;
  l:=0;
  for i:=1 to n do begin
    repeat
      x:= random(n+1);
      Inc(l)
    until s[x]=0;
    s[x]:= 1;
  end;
  WriteLn;
  WriteLn('Repeatitions: ',l);
  WriteLn('Efficiency:   ',(l/n): 3 : 1);

  ;ReadLn
end.

Цитата(volvo @ 10.04.2010 4:16)

var
  s: set of byte;
  i, X: byte;
begin
  { Randomize }
  s := [];
  for i := 1 to 6 do
  begin
    repeat
      X := random(49) + 1;
    until not (X in s);
    writeln('#', i:2, ' = ', X);
    s := s + [X];
  end;
end.

program lotto1;

 uses crt;
 const
  n=6;
 type
  lotto=set of 1..49;
 var
  L:lotto;
  k:integer;
  i:1..n;
  z:1..49;
  ok:boolean;

   begin
    randomize;
    L:=[];         {Инициализация множества}
    for i:=1to n do
    {Цикл выполняется 6 раз - Количество цифр в результате}
     begin
      repeat
       z:=random(49)+1;          {Генерация случайных чисел}
       if z in L then ok:=false  {Определение вхождения сгенерированного числа в множество}
       else
        begin                    {Присоединение нового числа}
         L:=L+[z];
         ok:=true
        end;
      until ok;                 {Цикл repeat повторяется до тех пор, пока ok имеет значение false}
     end;
    clrscr;
    {Вывод шести различных случайных чисел из 49}
    for k:=1to 49do if k in L then write(k:4);
   end.

Цитата(sheka @ 10.04.2010 3:37)

program sportlotto;

{$APPTYPE CONSOLE}

 var i:1..6;q,previous: byte;
 variation:string;

   begin
   randomize;
  variation := '';
  previous:=0;
  for i := 1 to 6 do
    begin
      if i=6 then
        q := previous+random((i-1)*8+9-previous)+1
      else q := previous+random(i*8-previous)+1;
      previous:=q;
      insert(chr(q), variation, random(i));
    end;

  for i:=1to 6do
        writeln('Nr.',i:2,ord(Variation[i]):6);
  readln;
   end.

procedure Shuffle(var Arr: array of Integer);
var
	i, k, Temp: Integer;
begin
	for i := High(Arr) downto 0 do begin
		k := Random(i + 1);
		Temp := Arr[i];
		Arr[i] := Arr[k];
		Arr[k] := Temp;
	end;
end;

  for i := 1 to 6 do { <--- Цикл для 6-ти значений !!! }
  begin
    repeat
      X := random(49) + 1;
    until not (X in s);