uses crt;
var
  uchenik: char;
  voshel: set of byte;
  nomer: byte;

begin
clrscr;
    voshel:=[1..15];
    for uchenik:='A' to 'Z' do begin
      if (ord(uchenik)-ord('A')+1) mod 10=0 then begin
      voshel:=[1..15];
    end;
    write(uchenik,'-->');
    randomize;
    repeat   {kakoj bilet beret}
      nomer:=random(15) + 1;
    until nomer in voshel;
    writeln(nomer);
    exclude(voshel,nomer);
  end;
  readkey
end.