Задача "Спорт лото: 6 из 49"

[Astyr]

Спорт лото: 6 из 49. Составьте программу в которой загадываются иначе говоря создаются 6 разных чисел, значения которых ни как не связаны друг с другом.
Величина лежит в интервале 1 до 49.

Program sport_lato;
var
a,t: integer;
begin
t:=1;
randomize;
repeat
a:=random(49)+1;
writeln('Chislo',t,'=',a);
t:=t+1;
until t=6;
readln;
end.

не получается написать ЦЫКЛ который будет слидить за тем что бы не было одинаковых чисел.

[pomoshnic]

Program sport_loto;
var t: byte;
     a:1..49;
     e:set of 1..49;
begin
  t:=1;
  e:=[];
  randomize;
  repeat
    a:=random(48)+1;
    if a in e then else
    begin
      writeln('Chislo ',t,'=',a);
      inc(t);
      e:=e+[a];
    end;
  until t>6;
  readln;
end.

[mihali4]

Странная конструкция:

if a in e then else

Может, if not (a in e) then ?

[bura]

Вот так можно попробовать:

program sportloto;
var
 e: array[1..6] of byte;
 a, t, i: byte;
 f: boolean;
begin
  t:=0;
  randomize;
  writeln('Posledovatelnost chisel: ');
  repeat
    a:=random(49)+1;
    f:=true;
    for i:=1 to t do
     if a=e[i] then
      begin
       f:=false;
       break;
      end;
    if f then
     begin
      inc(t);
      e[t]:=a;
      write(e[t]:3);
     end;
  until t=6;
  writeln;
  readln;
end.

[puporev]

e:=[];
  randomize;
  repeat
    a:=random(48)+1;
    if not(a in e) then 
    begin
      e:=e+[a]; //или include(e,a);
      writeln('Chislo ',t,'=',a);
    end;

Иначе множество все время пустое и все числа, в том числе и одинаковые будут выводиться.