Процедуры и функции: Изменить множество целых чисел в интервале от 1 до 60, удаляя из него все чётные числа - PascalABC.NET

Формулировка задачи:

Прошу помощи. Описать процедуру, которая изменяет значение параметра - множества целых чисел в интервале от 1 до 60 , удаляя из него все чётные числа.

Решение задачи: «Процедуры и функции: Изменить множество целых чисел в интервале от 1 до 60, удаляя из него все чётные числа»

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

procedure DeleteEvens(var S : Set of Integer);
begin
  foreach var i : Integer in S do
    if Not Odd(i) then
      S -= [i];
end;

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

В данном коде представлена процедура с именем DeleteEvens, которая принимает входной параметр типа Set of Integer и не возвращает ничего. Внутри процедуры происходит итерация по всем элементам входного множества S с помощью цикла foreach. Для каждого элемента i проверяется его чётность с помощью функции Odd(i) (если число чётное, то возвращается False, иначе True). Если элемент i является чётным числом, то он удаляется из множества S с помощью операции минус -=, которая выполняет вычитание и присваивание. В итоге, после выполнения процедуры, в переменной S останутся только нечётные числа.