lab task 2

implement main
    open core, console

class predicates
    min : (integer*, integer [out]).
clauses
    min([], 10000000) :-
        !.
    min([X | Xs], Min) :-
        min(Xs, Min2),
        if X mod 2 = 1 and X < Min2 then
            Min = X
        else
            Min = Min2
        end if.

    run() :-
        init(),
        write("Введите список в квадратных скобках с запятыми"),
        nl,
        nl,
        write("Список -> "),
        List = read(),
        nl, % Список чисел
        _ = readchar(),
        min(List, A),
        write("минимальный элемент среди нечётных чисел: ", A),
        nl,
        write("Конец. Нажмите любую клавишу "),
        _ = readchar().

end implement main

goal
    mainExe::run(main::run).