Task3.2

% Составить программу для вычисления значения выражения S=2(X*X+Y*Y)/(X+Y) для введенных X и Y.

знач_выраж(Арг1, Арг2):-Арг1=\=(-Арг2), Рез is 2*(Арг1*Арг1+Арг2*Арг2)/( Арг1 + Арг2 ),
write("Рез=") , write(Рез), !;
writeln("Делить на 0 нельзя!").