Как написать программу в Паскале, чтобы 2 рандомных числа не повторялось?

Question

Как написать программу в Паскале, чтобы 2 рандомных числа не повторялось?

Comments

Можно подробнее о том, где/как это будет использоваться?

---

Нужно написать программу, которая случайным образом выбирает дежурных в классе от 1 до n, где n- кол-во учеников. Но иногда программа выдает, например: 6 и 6. То есть, один и тот же ученик.

---

Ой, еще: выбирает ДВА дежурных

Answer 1

Var a,b,n:integer;
begin
n:=10;
Randomize;
a:=random(n)+1;
b:=random(n)+1;
while b=a do b:=random(n)+1;
writeln('a = ',a,' b = ',b);
end.

Пример:
a = 8 b = 4

Answer 2

{
Думаю, это должно работать
Важно, что во второй раз выбор происходит уже среди n-1 вариантов
}

const n = 10;
var i,j: integer;
begin
i := 1 + random(n);
j := 1 + random(n-1);
if j >= i then j := j + 1;
write(i,' ',j)
end.