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

Предыдущий
вопрос Следующий
вопрос

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

program NonRepeatingRandomNumbers;
var
num1, num2: Integer;
begin
Randomize;
repeat
num1 := Random(100); // генерируем случайное число от 0 до 99
num2 := Random(100); // генерируем второе случайное число
until num1 <> num2; // повторяем генерацию, пока числа не будут различными
writeln('Первое случайное число: ', num1);
writeln('Второе случайное число: ', num2);
end.

Эта программа будет генерировать два различных случайных числа от 0 до 99. Если числа случайно будут совпадать, программа будет повторять генерацию до тех пор, пока не будет получено два разных числа.