Работа с множествами Сгенерировать 5 неповторяющихся случайных целых чисел из интервала от 1 до 45 - PascalABC.NET

Сгенерировать 5 неповторяющихся случайных целых чисел из интервала от 1 до 45.

Листинг программы

begin
  var a := ArrRandom(5, 1, 45);
  while a.Distinct.Count <> 5 do
    a := ArrRandom(5, 1, 45);
  writeln(a.JoinIntoString);
end.

Объяснение кода листинга программы

Импортируется пространство имен System.Collections.Generic
Создается метод ArrRandom, который принимает три аргумента: количество элементов, минимальное значение и максимальное значение.
В методе ArrRandom генерируется случайное число в заданном диапазоне и добавляется в список.
Если список содержит меньше элементов, чем указано в аргументе количество, то генерируется новое случайное число и добавляется в список.
Если список содержит ровно 5 элементов, то возвращается этот список.
Если список содержит больше элементов, чем указано в аргументе количество, то список очищается и генерируются новые случайные числа до тех пор, пока список не будет содержать ровно количество элементов.
В основной части программы вызывается метод ArrRandom с аргументами 5, 1 и 45.
Полученный список выводится на экран с помощью функции writeln.