Question

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

Answer 1

{
Думаю, это должно работать
Важно, что во второй раз выбор происходит уже среди 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.