---

% S = 2*(X^2 + Y^2) / (X + Y)
s(X, Y, S) :-
    X + Y =\= 0,
    S is 2*(X*X + Y*Y) / (X + Y).

main2 :-
    write('Введите X: '), read(X),
    write('Введите Y: '), read(Y),
    ( X + Y =:= 0 ->
        write('Деление на 0 невозможно!'), nl
    ;   s(X, Y, S),
        write('S = '), write(S), nl
    ).

avg(X, Y, A) :-
    A is (X + Y) / 2.

main3 :-
    write('Введите X: '), read(X),
    write('Введите Y: '), read(Y),
    avg(X, Y, A),
    write('Среднее арифметическое = '), write(A), nl.



min3(A, B, C, A) :-
    A =< B,
    A =< C,
    !.
min3(_, B, C, B) :-
    B =< C,
    !.
min3(_, _, C, C).

main6 :-
    write('Введите A: '), read(A),
    write('Введите B: '), read(B),
    write('Введите C: '), read(C),
    min3(A, B, C, M),
    write('Наименьшее = '), write(M), nl.