множетва, прог-а Опции

[Oleg55]

в классе 26 учеников, чьи имена A..Z. На экзамене 15 билетов 1..15. Когда в кабинет входит 10 ученик, то билеты, отвеченные предыдущими учениками кладут обратно. Промодулировать ход екзамена

как ввести множества я понимаю, но вот как дальше....помогите

[volvo]

Вот так:

var
  stud: char;
  quest: set of byte;
  current: byte;

begin
  quest := [1 .. 15];
  for stud := 'A' to 'Z' do begin

    if ord(stud) - ord('A') + 1 = 12 then begin
      writeln('Возвращаем билеты...');
      quest := [1 .. 15];
    end;

    write('Студент: ', stud, ' входит в кабинет...');

    repeat
      current := random(15) + 1;
    until current in quest;

    writeln(' ... и берет билет №', current);
    exclude(quest, current);

  end;
end.

Все билеты вернулись при входе 12-го ученика, если сделать это при входе 10-го, то на 15 билетов будет 17 человек, и двоим не хватит (а программа зациклится).

Или ты имел в виду "при входе каждого десятого"? Тогда вот так:

.

..
    if (ord(stud) - ord('A') + 1) mod 10 = 0 then begin
      writeln('Возвращаем билеты...');
      quest := [1 .. 15];
    end;
...