program p09;
uses Crt;
label 1;

var i,j:byte;
    cisla:array[1..6] of byte;

begin
clrscr;
randomize;
writeln('Byla tazena tato cisla: ');
for i:=1 to 6 do
  begin
  1:
  cisla[i]:=random(49)+1;
  if i>1 then for j:=1 to i-1 do if cisla[i]=cisla[j] then goto 1;
  write(cisla[i],',');
  end;
repeat until keypressed;
end.